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| f ABSTRACT 



THIS PROGRAM COLLECTS STATISTICAL INFORMATION 
PERTAINING TO THE DATA RELIABILITY OF THE 
TAII/TUfc® NH£N RUN FOR E&TENDEU PERIODS 
OF TIME* IT USES A NUMBER OF DIFFERENT 
PARAMETERS CONTROLLING THE DATA PATTERNS* 
THE NUMBER OF BYTES PEK BLOCK ^RECORD} AND 
THE NUMBER OF BLOCKS PfeR FILE, 



2, REQUIREMENTS 

aa EQUIPMENT 



PDP-11 COMPUTER WITH OK WITHOUT HARDWARE SWITCH REGISTER 
WITH CONSOLE TELETYPE^ ANp A TAH CASSETTE 



2,2 STORAGE 



THIS PROGRAM REQUIRES APPROX, *4K STORAGE, 
2 ? 3 PRELIMINARY PROGRAMS 



MAINDEC-U-DZTAA 
HAINOEC-il^DITAB 
MAINDEC-11*D2TAC 

MAINDEC-ll-DITAD 



3, LOADINS PROCEDURE 

USE STANDARD PROCEDURE FOR LOADING ^ABS TAPES 
OR A CASSETTE TAPE* 

4, STARTING PROCEDURE 

<M CONTROL SNITCH SETTING^ 

SEE 5 f l. 

4,2 STARTING ADDRESSES 



200 NORMAL STARTING ADDRESS 

20^ SELECT DRXVECSJ BEFORE STARTING TEST 

210 SELECT DRIVECSJ AND ADDRESSES BEFORE STARTInu TEST 



4«3 PROGRAM ft OPERATOR ACTION 

1, LOAD PROGRAM INTO MEMORY C&EE SECTION 3 ) 

a, LOAD A WRITE ENABLED CASSETTE IN BOTH DRIVES 

3, LOAD ADDRESS Bm* 

4 S SET SNXTCH&S (SEE SECTION 4.1) 

5« PRESS START, 

*** NQTEl IF USING THE SOFTNARt SWITCH REGISTER THE 

PROGRAM WILL TYPE "SUR-XXXXXX NEH-" AFTER TYPING 
THE NAME OF THfc PROGRAM, 

*,3.1 DRIVE SELECTION 

STARTING THE PROGRAM AT £00 WILL RESULT IN AUTUMATIC 
SELECTION OF DRIVES "A" AND "B" TO BE TESTED, 

STARTING THE PROGRAM AT 204 OR 210 ALLOWS THE OPERATUK 
TO SELECT THE DRIVE(S) TO BE TEST£D a 

THE PROGRAM WILL TYPE M DRIVEC5J?% 

EITHER OR BOTH DRIVES CAN BE SELECTED 8¥ TYPING «A" ANU/UK 
"B" ALLOWED BY A CARRIAGE RETURN, 

^t3 t l,i DRIVE SELECTION EXAMPLES 

DRIVE(S)? A f B IDRIVE** A AND B SELECTED 

DRIVEC3)? A8 fDRIVES a AND B SELECTED 

DRIVE(SJ? B,A IDNIVE& g AND A SELECTED 

DRIYE(S)? 8 IORIVE B SELECTED 

DRIYE(S)? SB? IDRIVE S IS IMPOSSIBLE 

DRIVEC3)? |ASK FUR DRIVE 



IHFQRHAJXQH 
OF THE 
?IOOS 
RENT 
TERNS, 
R03 AND 



AH AT 210 ALLOWS TH£ OPERATOR 
TROL AND STATUS® AND "DATA BUFFER" 
i TWt VECTOR ADDRESS AND THE 



ISK FUR THE DRIVES TO &E TESTED AS PEN 
)RXVE& HAVE BEEN SELECTED IT ^ILL ASK 



TEST 
6FOR6 STAHTjNii TEST 



F THE CONTROL AND STATUS REGISTER (TAGS] 

$ 

L 



'WARE SWITCH REGl$7tR 
55ETTE ,tK 



k TOR MUST RE3PUNP w*ITH THE DESIRED PARAMETER 
; RETURN (WHICH IMPLIES LEAVE AS IS)* 
IMtTERS HAVE BEEN DEFINED THE PROGRAM 
:M BACK OUT AND ASK IF THEY ARE OK AT 
HE OPERATOR RESPONSES WITH A «Y M OR A 
fURN" FOR "YES" ANYTHING ELSE IS A "NO% 



*AGE. 



N EXAMPLES 



IS TAPES 



Hl7750£ VECTOR S 000£60 PRIORI TY®000300 



B^lTTaTd VECTOR S 000£60 PRIOR I TY&000300 



s # 



5, OPERATING PROCEDURE 



5 f l OPERATIONAL SNITCH SETTINGS 



IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SNITCH 
REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 
THE USER THE SAME SWITCH OPTIONS AS TH& HARDWARE SWITCH REGISTER® 
IF THE HARUWARt SWITCH REGISTER DOES NUT EXI5T OK IF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SNITCH 
REGISTER CLOC, lib) IS USED 9 



CONTROL! 

THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER CLOC® I76J PRUM THE TTY® THIS CAN 8E ACCOMPLISHED BY 
DOING THE FOLLOWING! 

1) TYPE CONTROL G <*G>; THIS WILL ALLOH THE TTT TO ENTER DATA INTO 
LOC® 176 AT SELECTED POINTS WITHIN THE PROGRAM, 

23 THE MACHINE WILL TH£N TYPEl $WR«XXXXXXNEWb IXXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER,] 

3) AFTER THE # 'NEM" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTYi 



1 



A3 TYPE A NUMBER fO BE LOADED INTO LGC® lib FOLLOWED 8Y A «eCR3% 
CONLY NUMBERS SfcTNEEN *•/ will BE ACCEPTED AND ONLY 6 NUMBERS 
WILL Ht ALLOWED) 

IF A <QR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SNITCH 
REGISTER CONTENTS NlLL NOT BE CHANGED® 

8) IF A CONTROL U <*U> IS DEPRESSED THEN THE PRUGNAH ^ILL SEND YOU 
BACK TO STEP 2, 

NITH SN<i§l|0>ss0 THE PNOGRAN WILL PRINT OUT ON 
ERRORS AND CONTINUE IN TEST® 
THE SWITCH SETTINGS ARfel 

SW<15>«1 ## .HALT ON E&HQH 

SW<i4>«i. t .L00P ON TEST 

SW<13>»1... INHIBIT ERROR TYPEOUTS 

3W<i0>»l...RING BELL ON ERROR 

5W<09>M. # „HALr AFTER NEXT " ENO^OF-TEST 11 TYPEOUT 

SW<08>»i t ..AT NEXT "END*OF«TAPfc" [EOT) GO TO fl tND-OF-TtST" 

SW<07>»1. ..PERFORM PAS5 AS PER 5NR<1I0> 

SWR<i:0>»00"FQRMAT 

$&R^i§0»si01iiREAD ONLY 

SWR<i:0>»10*WRITE ONLY 

SHR<i:0>»li«R£AD ONLY 
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5 S 2 SUBROUTINE. ABSTRACTS 

5,2 f l SCOPE 

THIS SUBROUTINE CAUL (VIA AN IUT INSTRUCTION) IS PL&CEU 
AT AN OPTIMUM POSITION IN THE INSTRUCTION SECTION OF THE 
«FORHAT% W REAOONLV" AND "WRITEUNLY" CODE, 

IF SWR«ia»^l THE PROGRAH WILL LOOP THROUGH A SPECIFIC 
SEQUENCE DEPENDING ON THE TYPE OF PASS IEING PtHt>Q®M&Q® 
aa& THIS ROUTINE SUPPORTS THE 5/W SWITCH REG FUNCTIONS 

5.2.1.1 FORHAT PASS SCOPE LOOP 

I, SETUP FOR A WRITE 

2 WRITE 

"J* BACKSPACE ©LOCK GAP 

4, SETUP FOR A READ 
5« READ 

6, REPEAT STEPS 1-5 UNTIL °EOT" 

5.2.1.2 READONLY PASS SCOPE LOUP 

1, SETUP FOR KEAD 

2, READ 

S 9 CHECK FOR SYNC ft DATA fcRRQH 
4 @ SACK SPACE BLOCK GAP 

5, REPEAT STEPS %«»& INDEFINITE 

5.2.1.3 WRITEONLY PASS SCOPE LOOP 

i. setup for milt 

2 W WRITE 

J, REPEAT STEP 2 UNTIL ' f EUT M 

5,2^2 TRAPCATCHER 

A « # +2» - "HALT" SEQUENCE IS REPEATED FRO^ LOG* TU LUC, f7o 
TO CATCH ANY UNEXPECTED TRAPS* THUS, ANY UNEXPECTED T^APS WILL 
HALT AT THl DEVICE TRAP VECTOR + 2, 
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5*2,3 ERROR 

THIS SUBROUTINE CALL (VIA A EMI INSTRUCTION) 15 USED TU NfcPQKT 
ALU ERRORS, CREFEK TO 6 9 ) 

5 f 2 f a TRAP 

mm mm 

A NUMBER OP SUBROUTINES ARE CALLED BY THE TRAP INSTRUCTIUN. 
FOLLOWING IS THE CALLS USED ANU THt STARTING AU0RE5S Of THE 

5 f 2.^.1 TYPE (STYPE) 

TYPE AN ASCII STRING On The TTT 
§®a 9 4,g ROCHR(SRDCHR3 

READ A SINGLE ASCII CHARACTER fROM THE TTY 
§»i 9 ^ 9 i RDLINCSROUIN3 

READ AN ASCII STRING f^QH THE TTY 



5 8 2 8 b THE FOLLOWING SUBROUTINES ARE CALLED BY A # JSK*. 

5 f 2 t 0.i A20CT 

THIS ROUTINE CHANGES AM ASCII STRING TO AN OCTAL NUM»EH t 

5*2 t & 9 2 ASKDRV 

THIS ROUTINE 13 USED TO ASK THE OPERATOR WHICH DRlVEtSjl 
ARE TO BE TESTED 

5 9 2,6,J ASKADR 

THIS ROUTINE IS USED TU INPUT THE ADDRESSES OF THE "TACS 1 
AND THE VECTOR TO USE, 

5 f 2 f b.4 TYPERR 

THIS ROUTINE 13 USED TU TYPE OUT THE "ERROR" DATA 

5.2.6.5 CSRERR 

THIS ROUTINE IS USED WHEN AN EHRQR 
IS DETECTED, IT WILL tXAMINE THE 
"CONTROL AND STATUS 11 REGISTER TO 
DETERMINE THE TYPE Of tRRQR ANU 
TAKE THE APPROPRIATE ACTION, 

5.2 9 6.6 SETUPW 

THIS ROUTINE IS USED TU SETUP THE 

PARAMETER SLOCK AND THt WRITE 

BUFFER BEFORE STARTING a "wRITt" FUNCTION 

5 ffl 2 ffi 6 9 r FILL 

USE TO FILL THE WRITE SUFFER 
WITH A DATA PATTERN* 

5 9 2 a 6,a SETUPR 

THIS ROUTINE IS USED TU SETUP lHfc 
PARAMETER SLOCK BEFORE DOINC* A 
^READ* FUNCTION, 

5.2,6.9 SYNCK 

THIS ROUTINE Id CALLED AFTER 
PREFORMING A ''HEAD",, 
IT CHECKS THE HIRST FOUR BYTES 
OF THE DATA TO INSURE THAT THEY 
CONTAIN THE PROPER Flit AND 
BLOCK NUMBERS® 



5 a 2 e 6,10 DATCMP 



THIS ROUTINE IS USED TU CHECK I Hfc 
DATA IN TH£ REAQ BUFFfc'K TQ INSURfc 
IT IS CORRECT. 



5 s 2 @ 6 8 ii CNTSFT 



THIS ROUTINE IS USEP TU 
COUNT SOFT DATA ERRORS 

5.2.6.12 CNTHRD 

THIS ROUTINE IS USfcU TU 
COUNT NAHD DATA ERRORS 

5.2.6.13 SAVRQX OR S&VKEG 

ROUTINE TO SAVt ALL THfc REGISTfcRS 
5,2,6 ff H CASSETTE PRIMJTIVt 

THIS IS THE CASSETTE DKIV£R 
5 f 2*6 ? 15 CASINT 

CASSETTE INTERRUPT MANULER 

5.2,6,16 DBCO 

CHANGES A DOUBLE LtNGTM BINARY 
NUMBER TO A DECIMAL ASLIZ STRING 



5.2.6,17 SBCD 



CHANGES A SINGLE LENGTH BINARY 
NUMBER TQ A DECIMAL A3UIZ STRING, 



5,2 f 6 t i6 SUPRES 



TYPES A DECIMAL ASCII STRING 
SUPPRESSING LEADING Z&NQS® 

5,2,6,19 TYPF 

USED TO TYPE THE ASCIZ STRING 
INMEDIATELV FOLLOWING THE CALLt 

5,2,6 w g0 TPD^V 

TYPES THE DRIVfe TO BE TESTED 

5,2,6,21 EXAM 

THIS ROUTINE EXAMINES THE SELECTED DRIVES 
TO INSURE THEY ARE AVAILABLE FUR TESTING® 

5,2«6 f 22 SB20CT 



-> 



j 



•j 



') 



TYPES AN OCTAL NUM^R 
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6* ERRORS 



THERE ARE A NUMBER Qf- &RRORS THAT CAN OCCUR IN THIS 
PROGRAM, a»HEN AN ERROK 13 ENCOUNTERED THfc CALL TO 
THE ERRQR(ERRQK) ROUTINE IS MAUE AND IF $W<1J> IS NOT 
SET AN ERROR MESSAGE PbRTAININb TQ THE ERROR WILL SE 
TYP£D« EACH ERROR TYPfe OUT WILL CONTAIN THE FOLLOWING! 

U AN ERROR MESSAGE 

2, A DATA HEADER 

3. A DATA STRING 

REFER TO THE LISTING UNDER $ER*TB f*OR THE DIFFERENT 
ERRORS THAT CAN OCCUR, 



6,1 ERROR TYPES 



THE ERRORS THAT OCCUR IN THIS PROGRAM FALL INTO THREfe 
C33 CATEGORIES DEFINED AND E&PLAINEQ AS FOLLOW! 



6,1.1 PRETEST ERROR 



THESE ERRORS NIU SE DETECTED BEFORE TRYING TO TfcST 
THE DATA RELIABILITY OF THt TA11/TU63, 



6.1,2 NON-FATAL ERROR 



THESE ERRORS WILL t*E DUE TU « C HC M OR "DATA" FAILURES 
WHICH WILL 8E REPORTED AS fHEY OCCUR, AFTfcR REPORTING 
THE ERROR THE PROGNAH MILL CONTINUE TESTING, 



6,1.3 FATAL ERROR 



THIS TYPE UF ERROR WILL BE THE RESULT OF ANY KIND 

OF ERROR THAT CAUSES THE PHOGRAN TO LOSE TKACK OF THE TAPE 

POSITION, OR THE MAXIMUM NUmtU OF DATA ERNORS HAVt 

OCCURRED® 

THIS ERROR l*XLL BE REPORTED NHEN IT OCCURS, THEN THE PRQGRAH 
WILL ABORT THE TEST AND GO TO THE "ENO^OF- TEST" TYPtOUT, 



6,2 DATA ERRORS 



THERE ARE TWO TYPES OF DATA gRKQRS 

THAT CAN OCCUR &HXCH kH& 

DEFINED AND EXPLAINED AS FOLLOWS! 



6,2.1 SOFT ERROR 



A SOFT ERROR IS BY DEFINITION ANY «CRC» OR "READ DAT& M 
ERROR THAT OCCURS WHILE READING A 8L0CK OF DATA, 
A SOFT ERROR WILL INVOKE A REREAD QF THE BLOCK, 



6 f 2 f 2 HARD ERROR 



A HARD ERROR IS DEFINED AS ANV 

M CRC® OR ^EAD DATA* ERROR THAT OCCURS 

ON THE INITIAL REAP OF A BLOCK 

OF DATA AND CAN NOT BE READ 

CORRECTLY WITHIN THREE 13) RETRYS, 



6*3 ERROR RECOVERY 



& B 3 8 I PRETEST ERROR 

WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED, THEN DEPENDING 
ON HON THE PROGRAM WAS STARTED IT NILL ASK FOR THE QNIVES AND 
ADDRESSES FOR TESTING OR RETURN TO MONITOR, 

h*S m % NON-FATAL ERROR 

WHEN THIS TYPE OF &HHQH OCCURS IT WILL BE REPORTED AND 
THE PROGRAM WILL CONTINUE IN TtST„ 

6*3,3 FATAL ERROR 

&HEN THIS TYPE OF ERRQtf OCCURS IT NILL BE REPQ^TED 9 THg 
PROGRAM Will AaORT THE TEST AND GO TO THE "END*OF-T£&T M TYPEUUT, 

7® RESTRICTIONS 



BEFORE STARTING THE PRUGRAM THfc OPERATOR MUST INSURE THAT A 
CASSETTE IS LOADED ANQ *RITE fcNAbLfcQ IN THE DRIVE(S) 
TO BE TESTED® 



6 9 MISCELLANEOUS 
8»* EXECUTION TIME 



TESTING THE TAU/TU6B TO SPECIFICATION TAKES APPROXIMATELY 
2 HOURS 30 MINUTES WITH EACH Q*IVE TAKING 75 MANUT£S« 

8,2 STACK POINTER 

STAC^ IS INITIALLY SET TO 1100. 



8*3 



END OF T£ST 



WITH ALL SWITCHES ON A M 0" THfc END OF TEST T^PtQUT WILL OCCUR 
NHEN THE PROGRAM COMPLtTES 18 TAPfe PASSES FROM M 8QT" TU 
"EOT" ON THE DRIVE UNDER TEST UR A FATAL ERROR OCCURS* 

8,3, J EXAMPLE OF AN END-UF TfeST TYPEUUT 

*** END-OF-TESF &&* 
SOFT ERROR5«0 
HARD £RRPRSs0 
8YTES READsia7|a68 
BYTES NRITTENSJ69000 
TAPE PAS5ES®18 
FlLES/PASSsia 
BLOCKS/FIUEsib 



8,4 



DRIVE COMPATIBILITY 



THE COMPATIBILITY BETwfcEN DRIVES CAN BE TESTED BY 
DOING A "FORMAT" PASS UN ONE D*IVfc AND THEN READING 4T 
ON ANOTHER DRIVE® 

8 s 4 s i DRIVE COMPATIBILITY PRUCEDURE SAMPLE #1 



THIS EXAMPLE FORMATS ON DRIVE A ANU READS FROM DRIVE 

a^ 8 l 9 i "FORMAT" DRIVE "A" 

PLACE A WRITE ENABLED TAPE IN DRIVE "A" 
INSURE DRIVE "8 H IS EMPTY 
LOAD ADDRESS £m 

set 5*09 and aw0a ro "i" all others to n v» 

PRESS STARf 

PROGRAM WILL PERFOKH A ®FgKMAT M PASS QN DRIVE "A", TYPE 

f, END-OF^T£^T' f STATISTICS AND HA^J 
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6 ? 4 f l f 2 "READ" ORIVE H fei M 

1. REMOVE THE TAPt ^"RUM DRIVE "A" AND PLACE IT IN DRIVE »B" 

i, LOAD ADDRESS &m 

3« SET SN09* SN08 # 3W07 AND S^00 TO A "1" ALL OTHERS 

TO A W W 
4, PRESS START 
§® PROGRAM WILL PfcRFOKM A ^READONLY** PASS ON DRIVE 

"B% TYPE •END^F-TEST" STATISTICS AND HALT® 



® f 4 9 2 DRIVE COMPATIBILITY PROCEDURE tXAHPLE #£ 

THIS EXAHPLE READS KNQwiN GOOD 1AP&IS3 
8 f 4„£ f l "READ" 

1, PLACE THE KNONN GOOD TAPEC&3 IN THE DRIVEN) TO 
BE TESTED, (NOT&I XT MIGHT BE WISE TO HAVE THE 
T&PECS) WRITE LOCKED®) 

2, LOAD AODRESS 300 

3, SET SW0S* SW07 ANQ SN00 TO A "I" ALL OTHERS 
TO A "0" 

4 f PRESS START 

5« PROGRAM WILL PERFORM A "READONLY" PASS ANO TYPE 

"END-OF-TEST" STATISTICS ON DRIVECS) TO BE TESTED, 

B t 5 DATA FORMAT 

THE DATA FORMAT USED IN THIS PKQGRAM WILL RESULT IN 
APPROXIMATELY ELEVEN (U) FILE& OF 819S BYTES TO SE WRITTEN 
ON TAPE, 

6, 5, I FILE STRUCTURE 

EACH FILE WILL CONSIST OF SIXTtEN U63 BLOCKS UP DATA? WITH 
EACH BLOCK CONTAINING AN UNIQUt DATA PATTERN, 

8,5 S 8 BLOCK STRUCTURE 

EACH BLOCK WILL HAVE AN "ID" CUDE AS THE FIRST FOUR t4J 
BYTES Of DATA, THIS "ID" WILL BE THE FILE NUMBER ANU 
BLOCK NUMBER AND THEIR COMPLEHtNTS, TH£ DATA KQLLOMNb 
THE "ID" IS A PATTfcRN THAT REPtATS ITSELF EVERY EIGHT taj 
BYTES FOR THE LENGTH Of THE BLUCK« 

6,5,3 BLOCK SUE AND PATTERN 



BLOCK 


BLOCK 


bLOCK 


NUMBER 


SUE 


PATTERN 


8 


1024 


4H 
®63 
il« 

831 
146 
831 


I 


512 


314 
831 

063 
146 
314 
831 
063 
146 



®*5, J CCQNTJ 



BLOCK BLOCK © U UCK 

NUMBER SIZE PATTERN 

2 1024 00| 

mi 

010 
020 
040 
100 

3 256 m 

337 
357 
367 
S7$ 
375 
376 

4 1024 *52 

125 
252 

125 

^sa 

252 
125 

5 128 000 

111 
222 

33J 
044 
155 
2fe& 
J77 

* 1024 000 

§344 
111 
155 
222 
ihb 
333 
37? 
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BUOCK BLOCK 8UUCK 

NUMBER SUE PATTERN 

mmmmmm mwmm'W mm**mmmm 

1 64 000 

222 
044 
266 
II! 
333 

377 

3 10is!4 001 

007 

017 
037 
07 7 
177 
377 

9 32 376 

374 
370 
360 
340 
3#0 
200 
000 

10 12$ 001 

376 
002 
373 
004 
373 
010 
367 

ii as6 020 

357 

040 
337 

100 
27? 

£00 
17? 



8#5,i (C0NT.3 



BLOCK 8LUCK SUUCK 

number sue pattern 



a«6 TEST TVPEOUT 



12 sia 000 

000 

000 
000 

13 1024 377 

377 
377 
377 
377 
377 
377 
37 7 

14 3a 000 

377 

000 
377 
(300 
377 

377 

15 Ue 017 

360 
£07 
170 
303 
074 
344 
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THE FOLLOWING fcXAMPLt &HQNS A TYPICAL TYPEQUT WHERE miH 
DRIVES NfcRE TESTED AND NO ERRORS OCCURRED® 
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MAlNDECril-DZT*E*A 

DRIVE A AND D^IVE 8 WILL BE TfcSTED 
*** FORMAT *** DRIVE A 
&&$ READ *** DRIVE A 
*** READ *®ft DRIVE A 
sir** READ *** DRIVE A 
ft** WRITE *&* DRIVE A 
*** READ *** DRIVE A 
#** READ *** DRIVE A 
**& READ fcfcfc DRIVE A 
ft*& READ *** DRIVE A 
**# FORMAT *** DRIVE A 
&** READ *** DRIVE A 
*&* READ *** DRIVE A 
*a* READ *** DRIVE A 
**fc WRITE *** DRIVE A 
*** READ *** DRIVE A 
a** READ *%* DRIVE A 
*** READ &** DRIVE A 
fc** READ *&* DRIVE A 

&*fc &NjD«*QF*«TE$T &&* 
SOFT ERRORS 3 ^ 
HARD ERRORS^® 
8YTE5 READb147*606 
BYTES mlRITTEN»370209 
TAPE PA55E5»18 
FIUE5/^ASSsi2 
8L0eK$/FltE^i6 

&&* FORMAT &*& DRIVE 8 

*** READ *** DRIVE 6 

*** READ &*& DRIVE 8 

&#& READ fc£fc DRIVE 8 

&fcfc WRITE *** DRIVE 6 

*fc$ READ fcfc* DRIVE 6 

&&& READ *#* DRIVE 8 

*** READ fc*& DRIVE 8 

***? READ *** DRIVE a 

&a* FQNMAT ft** DRIVE B 

*** READ &** DRIVE a 

fcfcfc READ **$ DRIVE B 

*** READ fcsfe* DRIVE d 

*&& WRITE *** DRIVE B 

&*& READ $afc DRIVE 6 

&a# HEAD *&* DRIVE 8 

*** READ *** DRIVE 6 

&** READ &** DRIVE 8 

*#& END-OF-TEST &*& 
SOFT ERRORS®^ 
HARD £RRORS«0 
BYTES RfcAO»i504096 
BYTES WRlTTENsi76668 
TAPE PASSES^IS 
FlLE^/PASSsIS 
StOC^S/FILEsIfe 
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*• PROGRAM DESCRIPTION 



THIS PROGRAM IS DESIGNED AROUND THREE PRIMARY KQUTlNtS 
THAT WILL TRANSFER DATA TO ANQ/QR PROM THE TAU/TUfe^ 
GOING FROM "80T" TO "EOT" Of Th£ TAPE, EACH OF THESE 
ROUTINES MAKE USE OF CUMMQN SUBROUTINES TO MANIPULATE 
TAPE MOTION, KEEP TRACK OF TAPt POSITION, SETUP DATA 
BUFFERS AND CHECK, COUNT AND REPORT ERRORS, 
THESE ROUTINES ARE DEFINED AND EXPLAINED BELOw* 

9,1 FORMAT PASS 



THIS IS A WRITE? BACKSPACE AND READ ROUTINE STARTING AT 
"BOT H THE FOLLOWING PROCEDURE IS PREFORMED! 

1, WRITE A 8L0CK OF DATA 

g 9 BACKSPACE A BLOCK fcAP 

J, READ THE BLOCK 

4 9 CHECK FOR SYNC ERROR 

5* CHECK FOR DATA ERROR 

6, REPEAT STEPS 1-5 SIXTEEN TIMES 

7. WRITE A FILE GAP 

S 8 REPEAT STEPS i-7 UNTIL "EOT" 

9,2 WRITEONLY PASS 



THIS IS A WRITE ONLY ROUTINE, STARTING AT »8QT" THE 
FOLLOWING PROCEDURE IS PREFORMED! 

1, WRITE SIXTEEN BLOCKS OF DATA 

2, WRITE A FILE GAP 

3, REPEAT STEPS H MO "EOT" 

9*3 READONLY PASS 



this is a read only routine anu requires that a "format" 
or "writeqnlv" pass has already been preformed® starting 
at "sot" the following procedure is preformed! 

i* re&d a block 0^ data 

2, check fqr sync error 

3, check for data error 

4, repeat steps 1*3 sixteen (16) times 

5, space forward file gap 

6, repeat steps 1-5 until the last block 
of the l&st file has been head® 
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593 GET VALUE FOR SOFTWARE SWITCH REGISTER 

812 ^FORMAT" ROUTINE 

964 "READ ONLY" ROUTINE 

U01 "WRITE ONLY" ROUTINE 

11^7 CHECK "EOTS" 

1211 END OF PASS ROUTINE 

13§?7 SCOPE HANDLER ROUTINE 

1340 ERROR HANDLER ROUTINE 

1382 ERROR IYPEOUT ROUTINE 

1487 DETERMINE CONTROL AND STATUS ERROR 

15?5 ROUTINE TO SETUP FUR A WRITE OPERATION 

159? ROUTINE TO FILL THE BUFFER BEFORE A WRITE 

1642 ROUTINE TO SETUP FOR A READ 

16b0 ROUTINt TO CHELK FOR SYNC PROBLEMS 

1^99 ROUTINE TO CHELK THE READ DATA 

1749 COUNT SOFT DATA ERROR 

1766 COUNT HARD ERROR 

1780 SAVE AND RESTORE R0-R5 ROUTINES 

18^9 CASSETTE PRIMITIVES ROUTINE 

1879 CASSETTE INTERRUPT HANDLER 

19£4 DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 

1986 SINGLE LENGTH BINARY TU DECIMAL ASCU ROUTINE 

2004 TYPE NUMERICAL ASCIZ SIRING SUPPRESS LEADING ZfcRUS 

2027 READ AN OCTAL NUMBER F w OM THE TTY 

2066 ROUTINE TO TYpt DRIVE 

2084 ROUTINt TO ASK THE OPERATOR WHAT PRIVETS) TO TEST 

2119 ROUTINt TO INPUT C$®j>DBR ? AND VECTOR ADDRESS AND PRIORITY 

2180 ROUTINt TO EKA^INE DR1VECS) FOR AVAlLAbLITY 

3210 TYPE ROUTINE 

2280 TTY INPUT ROUTINE 

2419 BINARY TO OCTAL (ASCII,! AND TYPE 

2496 TRAP DECODER 

£519 TRAP TABLE 

2540 POWER DOWN AND UP ROUTINES 

2585 DATA TABLE POINTERS AND DATA FORMATS FUR ERRORS 

26E3 ASCII MESSAGES 

2785 READ AND WRITE BUFFER 
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M 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 

M 

42 
43 
44 
45 
46 
4? 
48 
49 

50 

51 
52 
53 
54 
55 
56 



•TITLE TAll DATA RELIABILITY MAINDEC-l 1 -DZTAE-C 

;*COPYHIGHT CCJ 1973,197/ 

?*UIGITAL EQUIPMENT CQHP, 

;*MAYNARD, MASS, 01?b4 

1* 

;*PRDGKAM BY JIM LACEY 

;* 

/*THIS PROGRAM WAS ASStMBLfcD USING THE PDP-11 MAINDEC SYSMAC 
;*PACKAGE CMAINDEC«il«UZUAC^C3J, JAN 19, 1977, 

• RfcMI 

GENERAL INFORMATION ABOUT THE TA11/TU60 CASSETTE 
AD0RE55 MNEMONIC DESCRIPTION 



777500 TACS 
777502 TAOB 
260 TAVEC 



CONTROL AND STATUS REGISTER 
DATA BUFFEK REGISTER 
INTEHKUPT VECTOR 



TACS REGISTER DESCRIPTION 







INIT 




BIT 


NAME 


STATE 


READ AND/UR WRITE 




ERROR 


? 




15 


READ ONLY 


14 


BLOCK CHECK fcRROR 





READ ONLY 


13 


CLEAR LEADER 


? 


READ ONLY 


12 


WRITE LOCK 


? 


READ ONLY 


11 


FILE GAP 





READ ONLY 


10 


TIMING ERROR 





READ ONLY 


09 


OFF LINE 


? 


READ ONLY 


06 


UNIT StLtCT 





READ/WRITE 


07 


TRANSFtR REQUEST 





READ ONLY 


656 


INTERRUPT ENABLE 





READ/WRITE 


05 


READY 


1 


READ ONLY 


04 


ILBS 





READ/WRITE 


03 


FUNCTIUN SIT 0* 





READ/WRITE 


02 


FUNCTIUN BIT 01 





READ/WRITE 


01 


FUNCTION BIT 00 





READ/WRITE 




0sWRITt«"FIL£°GAP 








lawRITt 








2»READ 








3«BACK SPACE FILE GAP 








4sBACK SPACE BLOCK GAF 








5sSPACt FORWARu FILE GAP 






6sSPACt FORWARD BLOC& 


GAP 






7aREWIND 






00 


GQ BIT 





WRITE ONLY1 
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OZTAfeC.PIi 17»MAR<*77 14S52 UPbRATIONAL SWITCH StTTINGS 

TTL OPERATIONAL SWITCH SETTINGS 

SWITCH USE 

15 MALT ON ERROR 

U LOOP ON TEST 

13 INHIBIT ERROR TYPEOUTS 

10 DING BELL ON ERROR 

9 HALT AFTER NEXT M END»QP«TEST" TYPE OUT 

8 AT NEXT "EOT" GOTO "END<»0F.»TEST 8, 

7 PERFORM A5 PER 5WR«il0» 

00BFORMAT 
01»READONLY 
10"WRITEONLY 
llaREADONLY 



*SBTTL BASIC DEFINITIONS 

^INITIAL AODRfcSS OF THE 5TACK POINTER *** 1100 **a 
STACKS 1100 

»EUUIV EMT, ERROR //BASIC DEFINITION OF ERROR CALL 

aEUUIV IOT, SCOPE //BASIC DEFINITION OF SCOPE CALL 



57 




58 




59 




60 




61 




62 




63 




64 




65 




66 




67 




68 




69 




70 




71 




72 




73 




74 




75 




76 




77 




78 


001100 


79 




80 




81 




82 




63 


000011 


84 


000012 


85 


000015 


86 


000200 


87 


17777b 


88 




89 


177774 


90 


177772 


^1 


177570 


92 


177570 


93 




94 




95 


000000 


96 


000001 


97 


000002 


98 


000003 


99 


000004 


100 


000005 


101 


000006 


192 


* 000007 


103 


000006 


104 


000007 


105 




106 




107 


000000 


108 


000040 


109 


000100 


110 


000140 


111 


000200 


112 


000240 



/^MISCELLANEOUS DEFINITIONS 



HT» 


11 


LFs 


12 


CRs 


15 


CRLF» 


200 


PS* 


177776 


•EQUIV 


PS,PSW 



STKLMTs 177774 

PIHQa 177772 

DSWRs 177570 

DDISPs 177570 



//CODE FOR HORIZONTAL TAB 

//CODE FUR LINE PEED 

HCOUE FOR CARRIAGE RETURN 

//CODE FOR CARRIAGE RETURN«LINE FEED 

//PROCESSOR STATUS WORD 

//STACK LIMIT REGISTER 
//PROGRAM INTERRUPT REQUEST REGISTER 
//HARDWARE SWITCH REGISTER 
UHAHDWAHE DISPLAY REGISTER 



^GENERAL PURPOSE REGISTER DEFINITIONS 



R0B 

Ris 
R2® 
H3 a 
R4S 
R5* 
R&s 
R7« 
SPs 
PCs 



X0 
XI 
%2 
X3 
%4 
X5 
X6 
X7 
Xb 



//GENERAL REGISTER 

//GENERAL REGISTER 

//GENERAL REGISTER 

//GENERAL REGISTER 

//GENERAL REGISTER 

//GENERAL REGISTER 

//GENERAL REGISTER 

//GENERAL REGISTER 
//STACK POINTER 

//PROGRAM COUNTER 



/♦PRIORITY LEVtL DE^INITIUNS 



PR0a 

PHls 
PR2a 
PR3® 
PR4s 
PR5® 



40 

100 

140 

200 
200 



//PRIORITY LEVEL 

//PRIORITY LEVEL 1 

//PRIORITY LEVEL 2 

//PRIORITY LEVEL 3 

//PRIORITY LEVEL 4 

//PRIORITY LEVEL 5 
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1/-MAK-T7 14555 PAGE 3 



113 


000300 


114 


000340 


115 




lib 




117 


100000 


118 


040000 


119 


020000 


120 


010000 


121 


004000 


122 


002000 


123 


001000 


124 


000400 


125 


000200 


126 


000100 


127 


000040 


128 


000020 


129 


000010 


130 


000004 


131 


000002 


132 


000001 


133 




134 




135 




136 




137 




133 




139 




140 




141 




1«2 




143 




J44 




145 


100000 


146 


040000 


147 


020000 


148 


010000 


149 


004000 


130 


002000 


151 


001000 


152 


000400 


153 


000200 


154 


000100 


155 


000040 


156 


000020 


157 


000010 


158 


000004 


159 


000002 


160 


000001 


161 




162 




163 




16a 




165 




166 




167 




168 





PRbs 


300 


PR 7 a 


340 


M"SWITCH RtGISTER" 


SW15a 


100000 


SWUs 


40000 


Swl3s 


20000 


SW12* 


10000 


SWlls 


4000 


SW10S 


2000 


Sw09» 


1000 


8w08» 


400 


swe>7* 


200 


SW06« 


100 


SW05S 


40 


Sw04s 


20 


SW03" 


10 


5W02" 


a 


SW01* 


2 


SW008 


1 


.tuuiv 


SW09,SW9 


,EQUIV 


SW08»SW8 


»EUUIV 


SW07,SW7 


.EUUIV 


SW0b,SWfe 


,EUUIV 


5W05,5W5 


,EQUIV 


SW04,SW4 


.EUUIV 


SW03,SW3 


.EUUlV 


SW02,SW2 


•eauiv 


SW01,5Wi 


.eauiv 


SW00»bW0 


MDATA 


BIT DEFINITI 


BlTl5a 


100000 


BIT148 


40000 


SIT13s 


20000 


8IT12* 


10000 


SITU* 


4000 


BIT108 


2000 


81709s 


1000 


BIT08* 


400 


BIT07B 


200 


8IT06B 


100 


BIT05s 


40 


8IT04s 


20 


BIT03S 


10 


BIT02a 


4 


BIT01» 


2 


BIT00S 


1 


.EQUIV 


eiT09,BIT9 


.EUUIV 


BIT0a,BIT8 


,EQUIV 


BIT07,BIT7 


, tuuiv 


BIT0fe|BITfe 


»EQUIV 


BIT05,BIT5 


.EUUIV 


8IT04,BIT« 


,£QUIV 


BIT03,BIT3 


.EGUIV 


BIT02,BIT2 



f/PKIORlTY LEVEL b 
MPHIUHITY LEVEL 7 



SWITCH DEFINITIONS 
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169 




170 




171 




172 




173 


000004 


174 


000010 


175 


000014 


176 


000014 


177 


000014 


178 


000020 


179 


000024 


180 


000030 


181 


000034 


182 


000060 


183 


000064 


184 


000240 


185 




186 




187 




188 


000000 


189 


000002 


190 


000004 


191 


000006 


192 


000010 


193 


000012 


194 


000014 


195 


000016 


196 




197 




198 


100000 


199 


040000 


200 


020000 


201 


010000 


202 


004000 


203 


002000 


204 


001000 


205 


000400 


206 


000200 


207 


000100 


208 


000040 


209 


000020 


210 


000010 


211 


000004 


212 


000002 


213 


000001 


214 


000016 


215 





*EQUIV 


BIT01 


BIT! 


•eauxv 


BIT00 


p BXT0 


;*basic 


"CPU" 


TRAP 


ERKVECa 


4 




RESYEC® 


10 




TBITVEC 


'14 




THTVEC* 


14 




BPTVEC* 


14 




IOTVECa 


20 




PwKVEC® 


24 




EMTVEC» 


30 




TRAPVEC 


s>34 




TKVEC* 


60 




TPVEC® 


64 




PIKQVEC 


8240 




J }*******«!*«****«» 


r#*###*##*#TAii FU 


XWFG« 







XWHITE8 


2 




XREAD*» 


4 




XSSFG® 


b 




XBSBGa 


10 




XSPFGs 


12 




XSFBGs 


14 




XRWNDs 


IS 





TRAP VtCTOW AODRESSES 

IITIME OUT ANU QTMEK ERRQKS 

PRESERVED AND ILLEGAL INSTRUCTIONS 

n"T" BIT 

//TRACE TRAP 

//BREAKPOINT TRAP (BPTJ 

HINPUT/OUTPUT TRAP CIQTJ aaSCOPE** 

MPDWEK FAIL 

//EMULATOR TRAP CEMT) **EKRQR«* 

//"TKAP" TRAP 

J/TTY KEYBOARD VECTOR 

J/TTY PRINTEH VECTOR 

HPROGRAM INTERRUPT REQUEST VECTQK 



fWRITE FILE GAP FUNCTION 
/WRITE FUNCTION 
/READ FUNCTION 

JBACK SPACE FILE GAP FUNCTION 
/BACK SPACE BLOCK GAP FUNCTION 
/SPACE FWD FILE GAP FUNCTION 
/SPACE FWD BLOCK GAP FUNCTION 
JREWIND FUNCTION 



/###$l¥#«#0*TAn BIT AS&X&NMENT#»#M###»# 
ERPORa BIT15 



CRCERRa 


BIT14 


LEADER" 


BIT13 


WRTtOCK 


BBIT12 


FGAPs 


BIT11 


TIMERRs 


BIT10 


OFFLINE 


BBIT09 


UNIT* 


BIT08 


TR,REQ» 


BIT07 


INT, EN* 


BIT06 


READY® 


BIT05 


ILBSb 


8IT04 


FUNC2® 


BIT03 


FuNCia 


BIT02 


FUNC0» 


BIT01 


GO* 


BIT00 


FUNCTIONS 



FUNC2*FUNC1*FUNC0 
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»SBTTL TRAP CATCHER 
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216 








217 








218 




000000 




219 








220 








221 








222 




00017a 




223 


00017a 


000000 




22a 


000176 


000000 




225 








226 


000200 


000137 


001752 


227 


000204 


000137 


002004 


228 


000210 


000137 


002012 


229 








230 









.80 

f*AU UNUSED LOCATIONS PROM a «« 776 CONTAIN A H ,*2.HALT ! ' 
MSEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
;*LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 

» 8 17a 

dispreg: ,woro 

swkeg: 9 WQRD 
,SBTTL STARTING ADDKESStES) 

JMP «»#B6UIN1 

JMP S»*BEUIN2 

JMP ##BEliIN3 



if********************************************* 



//SOFTWARE DISPLAY REGISTER 
//SOFTWARE SWITCH REGISTER 

//JUMP TO STARTING ADDRESS OF PROGRAM 

/SELECT DKIVECS) BEFORE STARTING TEST 
/SELECT DRIVE CS) AND ADDRESSES BEFORE TESTING 



********** ****»ntt 
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231 
232 

233 

234 
235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

2«7 

248 

249 

250 

251 

252 

253 

25a 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

263 

269 

270 

271 

272 

273 

274 

273 

276 

277 

273 

279 

260 

281 

282 

283 

284 

285 

286 



001100 
001100 
001102 
001103 
001104 
001106 
001110 
001112 
001114 
001115 
001116 
001120 
001122 
001124 
001126 
001130 
001132 
001134 
001135 
001136 
001140 
001142 
001144 
001146 
001150 
001152 
001154 
001155 
001156 
001157 
001160 

001162 
00116a 
001166 
001170 
001172 
00117a 
001176 
001200 
001202 
001203 
001204 

001206 
001210 
001212 
001214 
001220 



000 

001 



177570 

177570 

177560 

177562 

177564 

177566 

000 

002 

012 



077 

015 
000012 



»SBTTL COMMON TAGS 

H **************************** «**********«ti* ****** «**Hi(*i,tl^mi*^t,* 

;*THIS TABLE CUNTAINS VARIOUS COMMON STORAGE LOCATIONS 
/*USED IN THE PROGRAM, 



//START OF COMMON TAGS 
MCONTAINS PASS COUNT 
//CONTAINS THE TEST NUMBER 
MCONTAINS ERROR FLAG 
//CONTAINS SUBTEST ITERATION COUNT 
MCONTAINS SCOPE LOOP ADDRESS 
MCONTAINS SCOPE RETURN FOR ERRORS 
MCONTAINS TOTAL ERRORS DETECTED 
MCONTAINS ITEM CONTROL BYTE 
MCONTAINS MAX* ERRORS PER TEST 
MCONTAINS PC OF LAST ERROR INSTRUCTION 
MCONTAINS ADDRESS OF 'GOOD' DATA 
MCONTAINS ADDRESS OF 'BAD* DATA 
MCONTAINS 'GOOD 8 DATA 
MCONTAINS "BAD 9 DATA 
//RESERVED«»«NOT TO BE USED 

MAUTOMATIC MODE INDICATOR 
MINTERRUPT MODE INDICATOR 

MADDRESS OF SWITCH REGISTER 
M ADDRESS OF DISPLAY REGISTER 
MTTY KBD STATUS 
MTTY KBD BUFFER 

MTTY PRINTER STATUS REG, ADORESS 
MTTY PRINTER BUFFER REG, ADORESS 
MCONTAINS NULL CHARACTER FOR FILLS 
MCONTAINS # OF FILLER CHARACTERS REQUIRED 
MIN5ERT FILL CHARS, AFTER A "LINE FEED" 
//"TERMINAL AVAILABLE" FLAG CBIT«07»ai»YE3) 
MCONTAINS THE ADDRESS PROM 
//WHICH CSREG0J WAS OBTAINED 
MCONTAINS USREGAD)*0) 
MCONTAINS (CSREGAD)*2) 
MCONTAINS C(SREGAD)+4) 
MCONTAINS C(5REGAO)«6) 
MUSER DEFINED 
MU5ER DEFINED 
MUSER DEFINED 
MUSER DEFINED 
MQUESTION MARK 
MCARRIAGE RETURN 
MLIN6 FEED 
*********** g******************** 1,11*1,1,1,1, $#,$ 

/NUMBER OF SOFT ERRORS 

/NUMBER OF HARD ERRORS 

/NUMBER OF TAPE PA33E5 

/NUMBER OF BYTES READ 

/NUMBER OF BYTES WRITTEN 



scmtag: 






spass: 


.WORD 





STSTNMI 


.BYTE 





SERFLGI 


8 BYTE 





SICNTI 


• WORD 





3LPADR* 


.WORD 





SLPERRI 


.WORD 





3EHTTLI 


.WORD 





3ITEMB! 


.BYTE 





SERMAXt 


.BYTE 


1 


SERRPCI 


.WORD 





3GDADRI 


.WORD 





SBDADRI 


e WORD 





sgddats 


.WORD 


b 


ibddat: 


.WORD 







,WORD 







9 W0RD 





SAUTOBI 


• BYTE 





SINTAGJ 


.BYTE 







.WORD 





swr: 


9 W0RD 


DSWR 


DISPLAY 


.WORD 


DDI5P 


STKSI 


177560 




STKBS 


177562 




STPSI 


177564 




STPB* 


177566 




SNULLI 


.BYTE 





SFILLS! 


.BYTE 


2 


SFIUCI 


.BYTE 


12 


STPFLGJ 


„BYTE 





SRtGADS 


• WORD 





IREG0J 


9 WORD 





SREGll 


»WORD 





3REG2I 


.WORD 





SREG38 


.WORD 





STMP0I 


.WORD 





STMP1J 


9 WORD 





STMP2: 


9 WORD 





STMP3J 


.WORD 





3QUESI 


.ASCII 


nt 


SCRLF* 


. ASCII 


«15* 


slf; 


.ASCIZ 


«12» 


tf********t,****ii$tiiii#iii 


sqftnm: 


.WORD 





HARDNMI 


.WORD 





eots: 


.WORD 





rbyttl* 


.WORD 


tff@ 


wbtttl* 


*WORD 


0,0 
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001234 800017 



287 001224 000000 

268 001226 000000 

289 001230 000000 

290 

291 

292 

293 001236 000011 

294 

295 

296 

297 001240 177500 

298 001242 177502 

299 001244 000260 0002&2 

300 001250 000300 

301 001252 000000 

302 001256 001252 

303 001260 000003 

304 001262 000003 

305 001264 000022 

306 001266 000000 

307 001270 001274 

308 001274 000001 

309 001276 000003 

310 001300 

311 001302 

312 001304 

313 001305 

314 001306 

315 001307 

316 001310 



ROTRYS: 9 W0RD 

WRTRYSI 9 W0RD 

BYTNUMI 9 W0R0 0,0 

LASTBKS „W0RD 15. 

LASTFtI 9 W0RD «*» 



TACSII 


177500 




TADBUI 


177502 




TAVECI 


260,268 




TAPRIQJ 


300 




DRVKEYI 


0,0 




DRVPNTt 


DRVKEY 




MAXRDSi 


9 W0R0 


J 


MAXERRJ 


9 WQRD 


3 


maxeot: 


»W0R0 


18, 


PA8CNTI 


9 W0RD 





PSCNTL* 


.WORD 


FORPAS, 


F0RPA5I 


9 WORD 


1 


ROIPASI 


sWORD 


3 


WRTPASI 


.WORD 


1 


RD2PA5! 


,WORO 


4 


HUE? 


.BYTE 







.BYTE 


377 


BLOCK! 


.BYTE 







.BYTE 


377 


FILESZ! 


9 WQRD 


lb. 



/KEEPS COUNT OF REREADS 

/KEEPS COUNT OF REWRITES 

/THE NUMBER OF BYTES -READ" OR "WRITTEN 

/DURING AN OPERATION 

/WILL CONTAIN THE # OP THE LAST BLOCK 

/AFTER A "FORMAT" OR "WRITE" PASS 

/WILL CONTAIN THE # OP THE LAST FILE 

/AFTER A "FORMAT" OR "WRITE" PASS 



/ADDRESS OF TACS 
/ADDRESS OF TADB 
ZTAU VECTOR ADDRESS 
ZTA11 BR LEVEL b 



/MAX REREADS BEFORE CALLING IT A HARD ERROR 

/MAX HARD ERRORS ALLOWED 

/NUMBER OP TAPE PASSES BEFORE END»QF»TE8T 

/COUNT # OF TAPE PA5SE5 

/CONTROLS THE TYPE OF PASS 

/ 1 FORMAT PASS 

/ 3 READONLY PASSES 

/ 1 WRITEONLY PASS 

/ 4 READONLY PASSES 

/FILE NUMBER 

Zl'S COMPLEMENT ON FILE NUMBER 

/BLOCK NUMBER 

Jl'S COMPLEMENT OF BLOCK NUMBER 

/NUMBER OP BLOCKS PER FILE 
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327 
320 



BIB 



317 
318 
319 
320 
321 

322 001312 002000 

323 001314 001000 

324 001316 002000 

325 001320 000400 

326 001322 002000 
001324 000200 
001326 002000 

329 001330 000100 

330 001332 002000 

331 001334 

332 001336 

333 001340 

334 001342 

335 001344 

336 001346 

337 001350 000200 
338 

339 
340 
341 
342 

343 001352 001412 

344 001354 001422 

345 001356 001432 

346 001360 001442 

347 001362 001452 

348 001364 001462 

349 001366 001472 

350 001370 001502 

351 001372 001512 

352 001374 001522 

353 001376 001532 

354 001400 001542 
01402 001552 
01404 001562 
01406 001572 

358 001410 001602 
359 



I////////////////////////////////////////////////////////'/'///'"/"" 



335 
356 
337 



aSBTTL 
BLKSZi 



.WORD 
„WORD 
„WORD 
.WORD 
.WORD 
*WORD 
9 WORD 
9 WORD 
e WORD 
,WORD 
fl WORD 
t,WORD 
,WORO 
9 WORD 
»WORD 
»WORD 



BLOCK SIZE TABLE 

1024, 

512, 

102« 9 

256, 

1024« 

128, 

1024, 

b4, 

102« 8 

J2 a 

128. 

256, 

1024, 

32, 

128, 



/BLOCK 

/BLOCK 1 

/BLOCK 2 

/BLOCK 3 

/BLOCK 4 

/BLOCK b 

/BLOCK 6 

/BLOCK 7 

/BLOCK 8 

/BLOCK 9 

/BLOCK 10 

/BLOCK 11 

/BLOCK 12 

/BLOCK 13 

/BLOCK 14 

/BLOCK 15 



\fttnntnt/uifnuunft(/nn/nnn/utnitn/ntn/ftntufnm/ 



„SBTTL 
PATSt 



TABLt UF POINTERS TO THE DIFFERENT PATTERNS 



PAT0 

PAT1 

PAT2 

PAT3 

PAT4 

PAT5 

PATS 

PAT7 

PATS 

PAT9 

PAT10 

PATH 

PAT12 

PAT13 

PATH 

PAT15 
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360 

JJ1 *""t"iut'Hin/Hnni/nfft/nn/inuiunnntnnt/ntntfnut 

362 

303 .SBTTL DATA PATTERNS 
364 

365 001412 314 063 314 PAT0S ? 8YTE 314,063,314,063,146,231,146,231 

366 001415 063 146 231 

367 001420 146 231 

368 001422 314 231 063 PATH B BYTE 31 4, 231 , 063, 146, 314,231 , 063, i«6 

369 001425 146 314 231 

370 001430 063 146 

371 001432 001 002 004 PAT2S .BYTE 001 , 004, 004, 010, 020, 0«0, 100, 200 

372 001435 010 020 040 

373 001440 100 200 

374 001442 177 277 337 PAT3S B 8YTE 177,477,337,557,367,373,375,376 

375 001445 357 367 373 

376 001450 375 376 

377 001452 252 125 252 PAMI B BYTE 252, 125, 252, 12b, 252, 125, 252, 125 

378 001455 125 252 125 

379 001460 252 125 

360 001462 000 HI 222 PAT5! ,BYTE 000,111,222,533,044,155,266,377 

381 001465 333 044 155 

362 001470 266 377 

383 001472 000 044 HI PAT6I ,BYTE 000, 044, 1 H , 155, 222, 266, 333, 377 

384 001475 155 222 266 
365 001500 333 377 

38fe 001502 000 222 044 PAT75 .BYTE 000,424,044,266,111,333,155,377 

367 001505 266 HI 333 

388 001510 155 377 

389 001512 001 003 007 PAT8S .BYTE 001 , 003 , 007 , 1 7 , 037 , 077 , 1 77 , 377 

390 001515 017 037 077 

391 001520 177 377 

392 001522 376 374 370 PAT9I »BYTE 37&, 37«, 3?0, 560, 340, 300, 200, 000 

393 001525 360 340 300 

394 001530 200 000 

395 001532 001 376 002 PAT10J g BYTE 00H 576, 002, 375, 004, 373, 010, 367 

396 001535 375 004 373 

397 001540 010 367 

398 001542 020 357 040 PATHS *SYTE 020,357,040,337,100,277,200,177 

399 001545 337 100 277 

400 001550 200 177 

401 001552 000 000 000 PAT12I e BYTE 000» 000, 000, 000, 000, 000, 000, 000 

402 001555 000 000 000 

403 001560 000 000 

404 001562 377 377 377 PAT13S „BYTE 377,377,377,377,377,377,377,377 

405 001565 377 377 377 

406 031570 377 377 

407 001572 000 377 000 PAT14S 9 8YTE 000*377,000,377,000,000,377,377 

408 001575 377 000 000 
309 001600 377 377 

410 001602 017 360 207 PAT151 9 BYTE 017,560,207,170,303,074,341,036 

411 001605 170 303 07<S 
012 001610 341 036 

413 



TAH DATA RELIABILITY MAINDEC-U-DZTAE-C MACYll 27C1006J 17-MAR»77 14555 PAGE 10 

DZTAECP11 17*MAR»77 14J52 DATA PATTERNS 

I /////////////////////////////////////////////////////// unufnt/nu 

*SBTTL PARAMETER BLOCK USED WITH ALL FUNCTIONS 

JUSED FOR STATUS/ERROR 
fDRIVE % (DRIVE A»0, B»U 
JPOINTS TO STATUS/ERROR BYTE 
IFIRST ADDRESS OF DATA BUFFER 
JUSED FOR BYTE COUNT, 



414 






415 






416 






417 






418 






419 


001612 


000 


^Z 


001613 


000 


421 


001614 


001612 


422 


001616 


013464 


423 


001620 


000000 


424 







PAKM8KS 


8 8YTE 







S BYTE 







8 WORD 


PARMBR 




»WQRD 


BUFFER 




„W0RD 
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425 






426 






427 






42S 






429 






430 






431 






432 






433 






434 






435 






436 






437 






43B 






439 


001622 




440 






44J 






442 






443 






444 






445 


001622 




446 






447 






448 






449 






450 






45J 


001622 


012244 


452 


001624 


012535 


453 


001626 


011770 


454 


001630 


012052 


455 






456 






457 


001632 


012257 


456 


001634 


012633 


459 






460 


001636 


012012 


461 


001640 


012062 


462 






463 






464 






465 






466 






46? 


001642 




468 






469 


001642 


012272 


470 


001644 


012750 


471 


001646 


012026 


472 


001650 


000000 


473 






474 






475 


001652 


012314 


476 


001654 


012750 


477 


001656 


012026 


478 


001660 


000000 


479 






480 







9 SBTTL ERROR POINTER TABLE 

JfrTHIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR, 

J*THE INFORMATION 15 OBTAINED BY USING THE INDEX NUMBER FOUND IN 

^LOCATION 3ITEMB, THIS NUMBtR INDICATES WHICH ITEM IN THE TABLE IS PERTINENT, 

MNOTE1! IF SJTEMB IS THE ONLY PERTINENT DATA IS CSEKRPC), 

|*NQTE25 MCH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 

IJPOINTS TO THE ERROR MESSAGE 

IIP0INT5 TO THE DATA HEADER 

MPQINT5 TO THE DATA 

J|POINTS TO THE DATA FORMAT 



|s 


EM 


;* 


DH 


i* 


OT 


i* 


DF 


SEKRTB1 








ITEMS0J 



UTfcMS 001-002 



INDTEJ ALL NUMBERS WILL BE TYPED AS 6 DIGIT OCTAL NUMBERS 
I UNLESS OTHERWISE NOTED 



1 

EMI 

DH1 

DTI 

DF1 

2 

EM2 
DH2 

DT2 
OF2 



JDATA tRROR 

IPC FILE BLOCK BYTE GDDAT BUDAT GDADR BDADR 

ISERRPL SKEG0 SREG2 BYTNUM SGODAT SBDOAT SGDADH SBDADR 

|FILt, BLOCK AND BYTE ARE TYPED IN DECIMAL 



I8YNC ERROR 

; EXPT'D EXPT'U RCV'D RCVD 

IPC FILE BLOCK FILE BLOCK 

ISERRPL SKEG0 SREG2 STMP0 STMP2 

MLL NUMBERS EXCEPT SERRPC ARE TYPED IN DECIMAL 



Jltl,******,^******** **************** ****************#**** ********* 

fl****** ************************************************** ******* 

ITEMSU IITEMS 101-107 

EM101 fORlVE IS OFF-LINE 

DH101 IPC FILE BLOCK FUNCTION 

DT101 ISERRPL SREG0 SREG2 STMP0 

IFILE AND BLOCK WILL BE TYPED IN DECIMAL 

fSTMPkJ WILL BE TYPED AS A FUNCTION NAME 

EM102 IDRIVE IS WRITE«-LQCK 

DH101 ;PC FILE BLOCK FUNCTION 

DT 101 ISERRPL SREG0 SREG2 STMP0 

IFILE AND BLOCK WILL BE TYPED IN DECIMAL 

MTMP0 WILL BE TYPED A5 A FUNCTION NAME 
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481 


001662 


012340 


482 


001664 


012750 


483 


001666 


012026 


484 


001670 


000000 


485 






486 






487 


001672 


012363 


488 


001674 


012750 


4S9 


001676 


012026 


490 


001700 


000000 


491 






492 






493 


001702 


012402 


494 


001704 


012750 


495 


001706 


012026 


496 


001710 


000000 


497 






498 






499 


001712 


012417 


500 


001714 


012750 


501 


001716 


012026 


502 


001720 


000000 


503 






504 






505 


001722 


012441 


506 


001724 


012750 


507 


001726 


012026 


508 


001730 


000000 


509 






510 






511 






512 






513 






514 






515 


001732 




5J6 






517 


001732 


012463 


518 


001734 


013011 


519 


001736 


012040 


520 


001740 


000000 


521 






5^2 


001742 


012512 


523 


001744 


013026 


524 


001746 


012046 


525 


001750 


000000 


526 







EM105 ICLEAR LEADER ERROR 
DH101 ?PC FILE BLOCK FUNCTION 
DT101 ISERKPL SREG0 SREG2 STMP0 
IFILE AND BLUCK WILL BE TYPED IN DECIMAL 
I3TMH0 WILL BE TYPED AS A FUNCTION NAME 

EM104 /FILE GAP ERKOR 

DH101 IPC FILE BLOCK FUNCTION 
DT101 ISERRPL SREG0 SREG2 STMP0 
;file AND block WILL BE TYPED IN DECIMAL 
JSTMP0 WILL BE TYPED AS A FUNCTION NAME 

EM105 JTIM1NS, ERROR 

DMJ01 IPC FILE BLOCK FUNCTION 

DT101 ISERRPC SREG0 SREG2 STMP0 

[FILE AND BLOCK WILL BE TYPED IN DECIMAL 

|$TMP0 WILL BE TYPED AS A FUNCTION NAME 

EMJ06 I8L0CK CHECK ERROR 

DH101 IPC fill BLOCK FUNCTION 

DT101 ISERKPL SREGKJ SREG2 STMP0 

IFILE AND BLOCK WILL BE TYPED IN DECIMAL 

JSTMP0 WILL BE TYPED AS A FUNCTION NAME 



EM107 
DM101 
DT10S 



I f ****** 
| ; ft***** 



****** 

****** 

****** 



EM201 
DM301 
DT201 



EM202 
DM202 
DT202 



JUNKNQWN INTERRUPT 

fPC FILE BLOCK FUNCTION 

JSEKKPO SREG0 SREG2 STMP0 

iFILt AND BLOCK WILL BE TYPED IN DECIMAL 

?STMP0 WILL BE TYPED AS A FUNCTION NAME 

I************************************************** 

t%**&********************************************** 

IITEM5 201-202 

fTAii BAILED TO RESPOND 

IPC TAGS 

JSERKPC TACS 

IBOTH NUMBERS ARE TYPED AS OCTAL NUMBERS 

I NO URiVES AVAILABLE 

IPC 

ISERKPC 

I 
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527 

528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
500 
541 
543 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
55S 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
560 
581 
582 



001752 
001754 
001762 
001770 
001772 
002000 
002002 
002004 
002010 
002012 
002016 



002022 
002026 
002030 
002034 
002036 

002042 
002050 
002056 
002064 
002072 
002100 
002106 
002114 
002122 
002130 



002136 
002142 
002150 
002156 
002164 
002172 

002174 
002176 
002202 
002204 
002212 
002220 



005005 
012737 
122737 
001012 
022737 
001006 
000403 
012705 
000402 
012705 
005067 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
016767 
012767 



013746 
012737 
012767 
012767 
022777 
001012 

000403 
012716 
000002 

012767 
012767 
012637 



041101 

000005 

000260 
1 



000002 
175754 



001100 

001140 

001100 

004760 
000340 
005060 
000340 
011522 
000340 
011606 
000340 
002314 
002130 



002176 
177570 
177570 
177777 



000176 
000174 
000004 



001252 
000041 



001244 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 
002304 
176750 



000004 
176762 
176756 
176746 



176726 
176722 



,•;*********«****»*** J*****************, * ************ ft a«ft»»****ftft*a* 

/BEGIN! IS FOR NORMAL START 

/8EGIN2 IS FOR DRIVE StLfcCTION 

/SEGIN3 IS FOR DRIVE & AD0RES5 5ELECTI0N 



ftftftftaaasfcasaaaftasftaftft&fcftaaaaaaaa 



BE6IN1I CLR R5 

MOV S w AB,0®DRVKEV 

CMPB #5,Pff4i 

BNE BGNCMN 

CMP #260, 3»#TAVEC 

BNE BGNCMN 

BR BEGINS 
BEGIN2: MOV *1,R3 

BR BGNCMN 
BEGIN3I MOV *2,RS 
BGNCMN: CLR PS 

9 5BTTL INITIALIZE THE COMMON TAGS 
//CLEAR THE COMMON TAGS C3CMTAG) AREA 

MOV 

CLR 

CMP 

BNE 

MOV 
//INITIALIZE 

MOV 

MOV 



/NORMAL START 

/CASSETTE DDPT 

/GO BEGIN COMMON CODE IF NO 

/STANDARD VECTOR? 

/GO BEGIN COMMON CODE IF NO 

/GET DRIVES AND ADDRESSES 

/ASK FOR DRIVES FLAG 

/BEGIN COMMON CODE 

IASK FOR DRIVES AND ADDRESSES 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
//SIZE FOR A 
//EQUAL TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 



MOV 
RTI 
MOV 
MOV 
MOV 



#SCMTAG,Rb 
CR6J* 

»SWR,R6 HDONE? 
,-6 

#STACX,SP 
FEW VtCTORS 
*SSCUPt,S>»IOTVEC //IQT VECTOR FOR SCOPE ROUTINE 
S340,S>»IQTVEC*2 //LEVEL 7 



//FIRST LOCATION TO BE CLEARED 
MCLEAR MEMORY LOCATION 



//LOOP BACK IF NO 
//SETUP THE STACK POINTER 



8$EHHDk,0»EMTVEC nEMT VECTOR FOR ERROR ROUTINE 

l»340»#*EMTVEC*2 //LEVEL 7 

*$THAP,#*TKAPVEC //TRAP VECTOR FOR TRAP CALLS 

#340,t»#TRAPVEC + 2/L6VEL 7 

#$PWKDN,S»SPWKVEC //POWER FAILURE VECTOR 

*340,P»PWRVEC*2 //LEVEL 7 

SENDUT,$EOPCT //SETUP END*OF»PRUGRAM COUNTER 

»,,SLPADR //INITIALIZE THE LOOP ADDRESS FOR SCOPE 
HARDWARfc SWITCH REGISTER, IF NOT FOUND OR IT IS 
"»I% SfcTUP FOR A SOFTWARE SWITCH REGISTER, 

0#ERKVtC,*-(SP) //SAVE ERROR VECTOR 

S64S,e#ERRVEC //SET UP ERROR VECTOR 

»DSWH,5WR //SETUP FOR A HARDWARE SWICH REGISTER 

#DDI3P, DISPLAY //AND A HARDWARE DISPLAY REGISTER 

#-ii»SWR ;;TRY TO REFERENCE HARDWARE 3WR 

663 //BRANCH IF NO TIMEOUT TRAP OCCURRED 

//AND THE HARDWARE 5WR IS NOT a M 

65$ //BRANCH IF NO TIMEOUT 

»65*iCSP) IISET UP FOR TRAP RETURN 



//POINT TO SOFTWARE SWR 



#SWRtG,SWR 

#DlSFRtG, DISPLAY 

CSPJ*,s»#tKRVEC //RESTORE ERROR VECTOR 



eSBTTL TYPE PROGRAM NAME 
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//TYPE THE NAME OF THE PROGRAM IF FIRST PASS 

INC as«i //FIRST TIME? 

BNE 67$ //BRANCH IF NO 

042 CMP #$ENUAU,«42 //ACT^ll? 

BEQ 67S //BRANCH IF YES 

TYPE ,685 //TYPE ASCIZ STRING 

sSBTTL GET VALUE FOK SOFTWARE SWITCH REGISTER 



583 








584 


002224 


005227 


177777 


585 


002230 


001036 




586 


002232 


022737 


004726 


587 


002240 


001432 




588 


802202 


104401 


002300 


589 








590 


002246 


005737 


000042 


591 


002252 


001006 




592 


002254 


026727 


176660 


593 


002262 


001005 




594 


002264 


104405 




595 


002266 


000403 




596 


002270 


112767 


000001 


597 


002276 






598 


002276 


000413 




599 








600 


002326 






601 








602 








603 








604 








605 








606 








60? 








603 








609 








610 








611 








612 


002326 


010504 




613 


002330 


005305 




614 


002332 


002406 




615 


002334 


004737 


007620 


616 


002340 


005305 




617 


002342 


002402 




618 


002344 


004737 


007730 


619 








620 








621 








622 








623 








624 








625 








626 








627 








628 








629 








630 








631 








632 








633 








634 








635 








636 


002350 


0127S7 


002366 


63? 


002356 


005000 




638 


002360 


005777 


176654 



//ARE WE RUNNING UNDER XXDP/ACT? 

//BRANCH IF YES 

//SOFTWARE SWITCH REG SEUCTEO? 

//BRANCH IF NO 

//GET SOFT^SWR SETTINGS 

//SET AUTOCODE INDICATOR 

//GET OVER THE ASCIZ 



/THE CONTENTS UF R5 DETERMINES WHAT WILL BE DONE 

/ 

/ 

/ 

/ 

t 





TST 


«42 




BNE 


69$ 




CMP 


SWR,#5WREG 




BNE 


70S 




GTSWR 






BR 


70S 


693! 


MOVB 


»1#SAUT0B 


70%: 








BR 


67$ 


//66$i 


eASCXZ 


«CRLF8-/MAI 


67SI 







R5s2 ASK hOH DRIVEC53 AND AD0RES3ES CTACS AND VECTOR) 

R5»i ASK FOK DRIVECS) 

R5b0 DON'T ASK FOR ANYTHING 



It ****************************** tifittttitttttititttittttttiiit a******* 

BEGINJU MOV R5,R4 |COPY R5 

DEC H5 IASK FOR DRIVES? 

BLT CHKAUR ;BR IF NO 

JSR PC,#»ASKURV /GO GET DRIVES TO BE TESTED 

DEC R5 /ASK FOR ADDRESSES? 

BLT CHKAUR |BR IF NO 

JSR PC,»*A8KADN ;C0 GET TA11 ADDRESSES 

I ********************* z* ********* to*** to*****!, *$%$%#$ $$1,1,1,1,$ $$$,$#% 

CHECK THAT »TACS H WILL RESPOND TO ADDRESSING 

In TIMEOUT OCCUWRfcD 

A„ TYPE ERROR MESSAGE 
B 8 EXAMINE R« 

1, R«»3>k} GOTO 9EGINX 
2 9 R#»0 EXAMINE C42J 

A R C<*2Jb0 GOTO BEGINX 
0« E«2}»0 GOTO SENDAD 

II, TIMEOUT DIDN'T OCCUR 
A 9 CONTINUE 

f***®**************$&****%************$1iji1 l i,K'S!**t!**t,**1l,*******ti®* 

CHKADR8 MOV tflSrMfeKKVEC /IN CASE OF TIMEOUTS 

CLR R0 /USE AS A SWITCH 

TST PTACSL /SEE IF TAH RESPONDS 
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639 002364 000402 

640 002366 005200 13 S 
6^1 002370 022626 

642 002372 012737 000006 000004 255 

643 002400 005700 

644 002402 001412 

645 002404 104201 

646 002406 012705 000002 

647 002412 005704 

648 002414 001344 

649 002416 013700 000042 

650 002422 001741 

651 002424 000137 004726 

652 002430 012777 007056 176606 3S8 

653 002436 005077 176604 



BR 


2S 


INC 


R0 


CMP 


L8PJ+, tSPJ* 


MOV 


»ERRVEL + 2,i»#ERRVEC 


T5T 


R0 


BEQ 


38 


ERROR 


201 


MOV 


32, Rb 


TST 


R4 


BNE 


BEGINX 


MOV 


9*Qi,RV 


BEQ 


BEGINX 


JMP 


9#§tNDAD 


MOV 


#CA3INT,S»TAVEC 


CLR 


#TAVtC*2 



IBR IF NO TIMEOUT 

/COME HERE ON TIMEOUT 

/CLEANUP THE STACK 

/RESTORE TIMEOUT VECTUK 

/DID A TIMEOUT OCCUR? 

;br IF NO 

f TA11 FAILED TO RESPOND 

/DRIVES & ADDRESSES 

/OPERATOR INPUTS? 

IBR IF YES 

/GET MONITOR RETURN ADDRESS 

/BR IF NO MONITOR 

/GO TO END 

/SETUP CASSETTE INTERRUPT VECTOR 
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/ftft*************************************************** 9 ****** 1 **® 

/A*************************************************®*********®** 

MAKE SURE THE DRIVES XN THE DRIVE TABLE CAN BE TESTED 

I 9 DESIRED DRIVES CAN NOT BE TESTED 
A 9 TYPE ERROR MESSAGE 
8 9 EXAMINE R4 

1, R4*tf GOTO BEGINX 

2, R4®U EXAMINE 1423 
A e C423»0 GOTO BEGINX 
B» (423>0 GOTO SENDAD 

II, BOTH DRIVES IN THE TABLE BUT ONLY ONE OF THEM CAN BE TESTED 
h 9 CLEAR 8A0 DRIVE FROM THE DRIVE TABLE 
B B TYPE THE DRIVE TO BE TESTED 
C 9 CONTINUE IN PROGRAM 

III, DESIRED DRIVECa) CAN BE TESTED 
A a TYPE THE DRIVECS3 TO BE TESTED 
8, CONTINUE IN PROGRAM 



654 
655 








656 








65? 








658 








659 








660 








661 








662 








663 








664 








665 








666 








667 








668 








669 








670 








671 








672 








673 








674 








675 








676 








677 


002442 


012700 


001252 


678 


002446 


004737 


010174 


679 


002432 


000410 




680 


002454 


116010 


000001 


681 


002460 


001412 




682 


002462 


004737 


010174 


683 


002466 


000407 




684 


002470 


005010 




685 


002472 


000405 




6*6 


002474 


005200 




687 


002476 


004737 


010174 


688 


002502 


000401 




689 


002504 


105010 




690 


002506 


012700 


001252 


691 


002512 


010037 


001256 


692 


002516 


121060 


000001 


693 


002522 


001002 




694 


002524 


105060 


000001 


695 


002530 


005710 




696 


002532 


001424 




697 


002534 


112037 


001613 


698 


002540 


104401 


001203 


699 


002544 


106237 


001613 


700 


002550 


004737 


007564 


731 


002554 


111037 


001613 


702 


002560 


001406 




703 


002562 


104401 


013220 


704 


002566 


106237 


001613 


705 


002572 


004737 


007564 


706 


002576 


104401 


013225 


T07 


002602 


000412 




708 


002604 


104202 




709 


002606 


012705 


000002 



I / *ft***ft!Sf***fta 


»ft****&*«*r***ft*i*'*i* 


CHKDRVI 


MOV 


»DRVREY,R0 




JSP 


PC,£*EXAM 




BR 


IS 




MOVB 


URtfJ* IR0) 




BEQ 


2$ 




JSR 


PCi^&EXAM 




BR 


2S 




CLR 


CR0J 




BR 


2$ 


181 


INC 


R0 




JSR 


PC,$»EXAM 




BR 


2$ 




CLRB 


(R0) 


2§S 


MOV 


$DRVKEY,R0 




MOV 


R0,«QkVPNT 




CMPB 


IRQJi 11R0} 




BNE 


3$ 




CLRB 


1CR0J 


3§S 


TST 


IR0) 




BEQ 


5S 




MOVB 


CR0}*,P#PAKMBK*| 




TYPE 


,SCRLP 




ASRB 


S>#PARMBK*i 




JSR 


PC,«»&TPDRV 




MOVB 


[R03 ,#»PAKMBK*1 




BEQ 


43 




TYPE 


,MSGV 




ASRB 


*#PAKMBK*i 




JSR 


PC,0»TPDRV 


4§; 


TYPE 


,MSG10 




BR 


START 


5SS 


ERROR 


202 




MOV 


#2,Rb 



**»ft*ft»ft<r*ftftaft*****ft»ft**** 
/PICKUP ADDRESS OF ASCII DRIVE KEY 
/GO EXAMINE FIRST DRIVE 
I OK TO TEST»»-GO CHECK NEXT 
/REPLACE 1ST WITH 2ND 
IBR IF NO 2ND DRIVE SELECTED 
/GO EXAMINE DRIVE 
/OK TO TEST 
/CLEAR DRIVE CODES 

/POINT TO 2ND 

/GO EXAMINE DRIVE 

IOK TO TEST 

/CLEAR 2ND 

/RESET ADDRESS POINTERS 

I 1ST ■ 2ND? 

/BR IF NO 

/YES— '-CLEAR 2ND 

/ANY DRIVES? 

/BR IF NO 

/SETUP TO TYPE THIS DRIVE 

/TYPE B CR" & "LF« 

/ADJUST FOR TYPING 

/GO TYPE DRIVE 

/GET 2ND 

/BR IF NONE 

f "AND" 

/ADJUST FOR TYPING 

/GO TYPE THE 2ND DRIVE 

/"WILL BE TE5TED"<CRLF> 

/NO DRIVES AVAILABLE 
/DRIVES & ADDRESS 
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710 


002612 


005704 




711 


002614 


001244 




712 


002616 


013700 


000042 


713 


002622 


001641 




7i« 


002624 


000137 


004726 



TST 


K4 


8NE 


BEGINX 


MOV 


p#a2,R0 


BED 


BEGINX 


JMP 


#$SfcNDAD 



(OPERATOR INPUTS? 

(BR IF YES 

(GET MONITOR RETURN ADDRESS 

/NO MONITOR 

(GQ TO END 
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715 










716 










717 










718 










719 










720 










721 










722 










723 










724 










725 










726 










72? 










728 


002630 


012700 


00111a 




729 


002634 


012701 


000005 




7SQ 


002640 


004737 


002764 




731 


002644 


012700 


001206 




732 


002650 


012701 


000014 




733 


002654 


004737 


002764 




734 


002660 


013701 


001256 




735 


002664 


112100 






736 


002666 


006200 






T37 


002670 


042700 


177776 




738 


002674 


110037 


001613 




739 


002700 


105711 






740 


002702 


001002 






741 


002704 


012701 


001252 




742 


002710 


010137 


001256 




743 


002714 


012737 


000011 


001236 


744 


002722 


012737 


000017 


001234 


745 


002730 


013737 


001260 


001224 


T<»b 


002736 


013737 


001262 


001226 


747 


002744 


012737 


001274 


001270 


748 


002752 


005037 


001272 




749 


002756 


005037 


001266 




750 


002762 


000404 






751 


002764 


005020 






752 


002766 


005301 






753 


002770 


003375 






734 


002772 


000207 







////////////////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////////////////// 

It CLEAR THE VARIABLE STORAGE AREA 

2 9 SETUP FOR THE DRIVE THAT IS TO BE TESTED 

3, SETUP "LASTFL" AND "LASTBK" INCASE OPERATOR SELECTS "READONLY" PASS 

4, SETUP THE MAX S NUMBER OF RETRYS FOR READS AND WRITES 
5 9 SETUP TO START WITH A "FORMAT" PASS 

6, CLEAR THE PASS COUNTER 



START! MOV 
MOV 
JSR 
MOV 
MOV 
JSR 
MOV 
M0V8 
ASR 
BIC 
MOVB 
TSTB 
BNE 
MOV 

2$S MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
BR 

CLEAR? CLR 
DEC 
BGT 
RTS 



»$lTtMB,R0 

#SB0DAT»SITEMB/2,Rt 

PC,»»CLEAR 

»SOFTNM,R0 

$LASTFL«SQFTNM/2,R1 

PC,e»CLEAK 

P*DRVPNT,R1 

(R1)*,H0 

R0 

»*"CBXT00,R0 

R0,0»PARMBK<U 

IR1) 

2S 

#DRVKEY,R1 

Rl,e>»DKVPNT 

#9 e ,P#LASTFL 

#15»f«»SLA5TBK 

P#MAXRDS,PfRDTRYS 

P#MAXfcWR,e»»WKTRY5 

«FORHAS,*f#PSCNTL 

P#PSCNTL*2 

##PASCNT 

LOQPtR 

IR0J + 

Rl 

CLEAN 

PC 



(CLEAR VARIABLE STORAGE AREA 



(CLEAR AREA 



(GET DRIVE POINTER 
(SETUP THE DRIVE 



(END OF DRIVE TABLE? 

(BR IF NO 

(RESET DRIVE TABLE POINTER 

(RESTORE THE DRIVE POINTER 

(5ET "LAST FILE" & "LAST BLOCK" INCASE 

(OPERATOR SELECTS "READONLY" PASS 

(SETUP MAX, f OF REREAD TRY3 

(SETUP MAX, # OF REWRITE TRYS 

(DO A FORMAT PASS 

(CLEAR THE PASS COUNT 
(GET AROUND CLEAR 



TAll DATA RELIABILITY MAINDEC-U-OZT*E-C MACYll 27(1006) 17-MAR-77 14555 PACE 19 

DITAEC»P11 17«MAR»77 1AS52 GET VALUE FOR SOFTWARE SWITCH REGISTER 

757 I 

758 H 8 CHECK SWR«7» 

7 5g 1 A, SWR<7s>si PERFORM AS PER 5WR«1I0> 

760 f 1, 00s»hQRMAT PASS 

7bi J 2 9 <U>iK£AD ONLY PASS 

7b 2 J 3, 10»WRITE ONLY PASS 

763 f 4„ UaREAO ONLY PASS 

76a t 

765 I 8. SWR«7>b0 

766 I U UPDATE PASCNT 

7 67 1 2* PtRS'ORM AS PER £PSCNTL*2J 

768 I A * FURMAT 

769 I B, RfcADONLY 

77 t C. WMITEONLY 
7 7 t J D. RtAOONLY 
772 I 

774 002774 117737 176140 001172 LOOPER! MOVB «>SWR , PSSTMP0 I IF SWR«7»si } DO PER SWR«1!0» 

775 003002 142737 17757a 001172 BICB »-C<»IT07|BIT0nBIT00>» MJTMP0 

776 003010 100432 BMI iS IBR IF SWR«7»*1 

777 003012 023777 001266 176250 IS! CMP P0PASCNT , PPSCNTL IIS THE COUNTER AT MAX,? 
776 003020 002421 BLT 2S IBR IF NO 

779 003022 005037 001266 CLR *»*PASCNT IRESET THE COUNTER 

780 003026 062737 000002 001270 ADD S2,»»PSCNTL /MOVE TO THE NEXT PASS TYPE 

781 003034 005237 001272 INC ##PSCNTL*2 

782 003040 023727 001270 001304 CMP «»*PSLNTL , #RD*PAS+2 ITIME TO RESET PASS TYPE? 

783 003046 001361 BNE IS JBR IF NO 

784 003050 012737 00127a 001270 MOV 3F0RPAS, MPSCNTL IYES— • RESET THE PASS CONTROL WORDS 

785 003056 005037 001272 CLR S»#PSfNrL*2 

786 003062 000753 BR IS fGO CHECK THE COUNT 

787 003064 005237 001266 2S* INC *»PASCNT ICOUNT THIS PASS nn k|Cyr 

788 003070 013737 001272 001172 MOV #*PSCNTL*2,#»5TMP0 IPICKUP THE TYPE OF PASS TO DO NEXT 

789 003076 *»» 

791 003100 113716 001172 MOVB ^Slipw, t SPJ IPICKUP THE DISPATCH INDEX 

792 003 04 063 6 *SLB CSPJ IPOSITION THE INDEX 

793 003 06 063 6 AS L B (SPJ I BEFORE USING IT 

794 003110 062607 ADD (SP)*,PC IGO TO THt ROUTINE 

795 003112 000137 003132 JMP S»#FUKMAT 

796 003116 000137 003562 JMP P#RE*DUNLY 

797 003122 000137 004136 JMP P»WHlTfcONLY 

798 003126 000137 003562 JMP «>#READUNLY 

79 9 \tnut/ttu/nnuut/nu//n//n/ntunn/nnnu/tt/nni/untn 

800 )itt//utui/nfntun/nnnnu/iin/nnutnii/itnntn/tnntttt 
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803 








304 








805 








806 








807 








808 








809 








810 








811 








812 








813 








814 








815 








816 








817 








818 








819 








820 








821 








322 








823 








82a 








825 








826 








827 








828 








829 








330 








831 








832 








833 








83a 








835 








836 








837 








838 








839 








840 


003132 


012737 


003132 


S4i 


003140 


104401 


013246 


342 


00314a 


004737 


007564 


843 


003150 


104401 


001203 


844 


003154 


012737 




345 


003156 


000 


377 


846 


003160 


001306 




847 


003162 


012737 




843 


003164 


000 


377 


849 


003166 


001304 




850 








851 








852 








853 


003170 


012700 


001612 


854 


003174 


004737 


006756 


855 


003200 


105737 


001612 


356 


003204 


001775 




857 


003206 


100022 




858 


003210 


004037 


005536 



\nutuiiitiiu$/iuttuttiutiiiitiiinituittnuittttu/tttittittit 

I// //////////// ////// 7/////////////////////////////////////// ''/// 7///// 

I////////////////////////////// //////////////////'///// /////////"/"" 
\tnnfnui/tnn/nnf//fntnnnnnninntnnn/i//nn/ft/tuu 

^SHTTL "FORMAT" ROUTINE 

If*************************************************************** 
\ \********^********* ******* ************************************** 

STHIS ROUTINE PERF0RM5 THE FOLLOWING SEQUENCE 

I 

f l s REWIND TO BUT 

I 2 9 WRITE FILE GAP 

? 3 8 WRITE BLOCK OP DATA 

| 4, BACK BLOCK GAP 

| 5, READ BLOCK UF DATA 

I 6* CHECK FQR SYNC fcRROR 

f 7, CHECK FOR DATA ERROR 

| A, DATA ERROR OCCURRED 

f l t j (RDTRYS3<(MAXRDS) GOTO 4 9 

| 2, 3 CRDTRYS)B(MAXRDS) 

? A*J (WRTRYS3*(MAXERR) 

I 1„] BACK BLOCK GAP 

j 2„} GOTO 3, 

I 8*3 CWRTRYS)k(MAXERR) GOTO SEOP 

I B 9 NU DATA ERROR -»- GOTO 8, 

7 8 9 UPDATE THE BLOCK NUMBER 

J 9 9 END OF FILE'? 

| A e NU »-• GOTO 3 9 

I B, YES 

I 1,3 UPDATE FILE NUMBER 

I 2, J RESET BLOCK NUMBER TO 

| 3*3 GOTO 2* 

I 

lf*a************************************************************* 

001106 FORMAT! MOV »FORMAT , PS3LPADR ISETUP SCOPE LOOP ADDRESS 

TYPE ,MSG11 I"*** FORMAT ***" 

JSR PC f ##TPDRV IGO TYPE THE DRIVE 

TYPE »SCRLF 

MOV (PC)*»MPC3* UNITIALIZE THE BLOCK NUMBER 

9 BYTE 0,377 JSET BYTE TO AND BYTE 1 

e WORD BLOCK JTO THE 1'S COMP 9 OF BYTE 

MOV IPC)*,* (PC 3+ UNITIALIZE THE FILE NUMBER 

B BYTE 0,37f ISET BYTE TO AND BYTE 1 

s WORD FILE »T0 THE t'S CQMP, OF BYTE 

u(i}itnuuitHti/ttittnutiinuttn/nntnnun//i(tn/tftnnit 

I "REWIND" TO "BUT" 

unintnt/tn/iunn/tiiitinttn/nnn/nuunu/i/iiintunuti 

MOV »PARMBK,R0 |R0al8T ADDRESS OF PARAMETER BLOCK 

JSR PC, ^REWIND IGO TO REWIND 

IS! TSTB P#PAHMBK IWAIT ON FLAG 

BEQ IS 

BPL 4S JBR IF NO ERROR 

JSR R0,MCSRERR IGO TO CSR ERROR CHECK 
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859 003214 



3137 004412 



861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
860 
881 
882 
863 
884 
865 
886 
887 
868 
889 
890 
89! 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 



003220 
003220 
003224 
003230 
003234 
003236 
003240 
003244 
003250 



003254 
003262 
003266 
003272 
003276 
003302 
003304 
003306 
003312 
003316 



003322 
003322 
003326 
003332 
003336 
003340 
003342 
003346 



003352 
003356 
003362 
003366 
003372 
003374 
003376 
003402 
003406 



003410 
003414 
003416 
003420 



012700 
004737 
105737 
001775 
100006 
004037 
000137 
000137 



012737 
004737 
012700 
004737 
105737 
001775 
100006 
004037 
000137 
000137 



012700 
004737 
105737 
001775 
100004 
004037 
000137 



004737 
012700 
000737 
105737 
001775 
100004 
004037 
000137 



01612 
06722 
01612 



005536 
004412 
004364 



003262 
006072 
001612 
006726 
001612 



005536 
004412 
004364 



001612 
006742 
001612 



005536 
004412 



006220 
001612 
006732 
001612 



005536 
004412 



JMP *#$EUP ;G0 TO END OF PROGRAM 

I "WRITE»FIUL»liAH» 
I////////////////////////////////////////////////////////////////////// 



2SI 



3SS 



MOV 

JSR 

TSTB 

BEQ 

BPL 

JSR 

JMP 

JMP 



#PARMBK,R0 

PC,»*W*-G 

*#PAKMBK 

3$ 

4$ 

R0,*»CSREKR 

##SEUP 

0#C*tQTS 

; /////////////////////////////////////// /////////////////////////////// 

I "WRITE" A BLUCK OF DATA 
J////////////////////////////////////////////////////////////////////// 



|r0»1st address of parameter block 
igo to wfg 
iwait on flag 

ibr if no error 

;go to csr error check 

;go to end of program 



ISETUP SCOPE LOOP ADDRESS 

IGO SETUP FOR A WRITE 

/R081ST ADDRESS OF PARAMETER BLOCK 

IGO TO WRITE 

IWAIT ON FLAG 

IBR IF NO ERROR 

IGO TO CSR ERROR CHECK 

IGO TO END OF PROGRAM 



4SS MOV *5Si*#»LPADR 
5S5 JSR PC,0*SfcTUPW 

MOV *PARMBK,W0 

JSR PCfPsWKITt 
6SI TSTB f>#PAKMBK 

BEQ b$ 

BPL 7S 

JSR R0,0ffC6RERR 

JMP «»#$EUP 

JMP 0#C*tOTS 

I ////////////////////////////////////////////////////////////////////// 
I "BACK»SPACE*BL<JCK»GAP" 

I ////////////////////////////////////////////////// ///////////// ///,/,/ 
7SI 

MOV #PARMBK,R0 IR0»13T ADDRESS OF PARAMETER BLOCK 

JSR PC,#»B6BG IGO TO BSBG 

8S: TSTB P»PAKMdK IWAIT ON FLAG 

BEQ as 

BPL 9S J8R if NO ERROR 

JSR R0,*»C6RERR IGO TO CSK ERROR CHECK 

JMP 0#SEUP IGO TO END OF PROGRAM 

I ////////////////////////////////////////////////////////////////////// 
I "READ" A BLOCK OF DATA 
I////////////////////////////////////////////////////////////////////// 



9SS 



JSR 

MOV 

JSR 

TSTB 

BEQ 

BPL 

JSR 

JMP 

SCOPE 



PC,0»StTUPR 

»PARMBK,H0 

PC,**RfcAD 

S»#PAKMBK 

10$ 

11$ 

R0,P»C3RERR 

0S$EUP 



IGO SETUP FOR A READ 

IR05»1ST ADDRESS OF PARAMETER BLOCK 

IGO TO HEAD 

IWAIT ON FLAG 

IBR IF NO ERROR 

IGO TO CSK ERROR CHECK 



004737 006254 

000403 

104002 

000137 004412 



US! 

I //"////////////////////////////////////////////////////////////////// 

I CHECK FOR SYNC ERROR 

I ///////////////////////////////// ///////////////////////////////////// 

JSR PC,0»5YNCK ISYNC ERROR? 

BR 12S IRETURN HERE IF NO 

ERROR 2 ISYNC ERROR 

JMP M3EUP 
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915 








916 








917 








918 


003424 


004737 


006356 


919 


003430 


000430 




920 


003432 


104001 




921 


003434 


004037 


006550 


922 


003440 


000730 




923 


003442 


004037 


006606 


924 


003446 


000402 




925 


003450 


000137 


004412 


926 








927 








928 








929 


003454 


005337 


001226 


930 


003460 


002414 




931 


003462 


012700 


001612 


932 


003466 


004737 


006742 


933 


003472 


105737 


001612 


934 


003476 


001775 




935 


003500 


100265 




936 


003502 


004037 


005536 


937 


003506 


000137 


004412 


938 


003512 


013737 


001260 001224 


939 


003520 


013737 


001262 001226 


940 








941 








942 








943 


003526 


062737 




944 


003530 


001 


377 


945 


003532 


001306 




946 


003534 


123737 


001310 001306 


947 


003542 


003244 




948 


003544 


062737 




949 


003546 


001 


377 


950 


003550 


001304 




951 


003552 


012737 




952 


003554 


000 


377 


953 


003556 


001306 




954 


003560 


000617 





I////////////////////////////////////////////////////////////////////// 

I CHECK FOR DATA ERROR IF SOFT REREAD 

I ///////////////////////////////// ///////////////////////////////////// 



JSR 

BR 

ERROR 

JSR 

BR 

JSR 

BR 

JMP 



PC,t»#DATCMP 

15S 

1 

R0,##CNTSPT 

7$ 

R0,»»CNTHRD 

13S 

##SEUP 



ICHECK THE DATA 

IRETURN HERE IF DATA IS GOOD 

IDATA ERRUR 

ICOUNT SOFT ERROR 

IGO REREAD 

ICOUNT HARD ERROR 

IREWRITE 

ITO MANY HARD ERRORS 



I IF HARD ERROR REWRITE 



1538 



DEC 

BLT 

MOV 

JSR 

TSTB 

BEQ 

BPL 

JSR 

JMP 

MOV 

MOV 



#*WRTRYS 

15$ 

»PARMBK,R0 

PC,*»BSBG 

»#PANMBK 

14S 

45 

R0,0#CSRERR 

»#$EUP 

$*MAXRUS#«»#RDTRYS 

P#MAXEHR,*>#WRTRYS 



ITRY TO RfcWRITE THIS BLOCK? 

IBR IF NO 

IR0»1ST ADDRESS OF PARAMETER BLOCK 

IGO TO BSBG 

IWAIT ON FLAG 

IGO START A WRITE IF NO ERROR 
IGO TO CSR ERROR CHECK 

IRESET THfc REREAD COUNT 
JRESET THE REWRITE COUNT 



I/'//////////////////////////////////////////////////////////////////// 
I UPDATE BLOCK * & FILE # 
I////////////////////////////////////////////////////////////////////// 



ADD 
.BYTE 

.WORD 

CMPB 

BGT 

ADD 

9 B¥TE 

9 WORD 

MOV 

8 BYTE 

9 WORD 

BR 



(PC)*i«»CPCJ* 

1,-1 

BLOCK 

##FILE8Z,0»BLOCK 

4$ 

CPCJ *#*» CPC J * 

1,-1 

FILE 

CPC)*,#CPCJ* 

0,377 

BLOCK 

2$ 



I INCREMENT THE BLOCK NUMBER 



ITIME FOR A FILE GAP? 

IBR IF NO—GO START A WRITE 

I INCREMENT THE FILE NUMBER 



UNITIALIZE THE BLOCK NUMBER 
ISET BYTE TO AND BYTE 1 
ITO THE i p S COMP, OF BYTE 
IGO WRITE FILE GAP 
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q5 e uiiiiinmiiiiniiiiiiiiniini/iinii/iiiiiiimiiiiiiiiimii/iim 

HI U iiiiiiiiiiniiiiiiiiniiiiiiiiiiiiniiiiiiiiiiiniiiiiniiiiiiinnii 

III |////////////////////////////////////////////////////////////""""" 

"' i , 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 i i 1 1 

958 
939 



Ullllllllllllllllinilllllllllllllllllllllllllllllinilllllinnilllll 

"READ ONLY" ROUTINE 



HI rr *«*•**************••■*•*** ********** *************************** 

J & 3 II a********************************* ***************************** 

JJg ITMIS ROUTINE PEWF0RM5 THE FOLLOWING SEQUENCE 

966 ' 

gb7 | 1, REWIND TO BUT 

q b ; | 2, REAO BLOCK UF DATA 

Z b 5 | 3, CHECK FOR SYNC tRRQR 

| O e CHECK FOR DATA ERROR 

| A 9 DATA ERROR OCCURRED 

oT3 i I, J CRDTRYSJ«CHAXRDS) 

lit i A, J BACK BLOCK GAP 

VA I *»•> G0T0 Z » 

l 7 l i £ 9 } lRDTRYS)*tMAXRD5) 

I'l , A,) CWRTRY8)«CMAXERR) GOTO 5 9 

g'5 I B,j (wRTRYS)»CMAXbRR) GOTO SEOP 

97 J i b, NU DATA EKROK --* GOTO 5, 



970 
97i 



« 79 | 5, UPDATE THt BLOCK NUMBER 

eea I b 9 END OF FILE? 

„, | A, NU — - GOTO 2 B 

I B YE5 

ll\ i * i.J UPDATE FILE NUMBER 

III i 2 S J RESET BLOCK NUMBER TO 

909 , 3, } SPACE FORWARD FILE GAP 

I a, J GOTO 2. 



985 

98(, 

987 1 

966 



II* *********** «* ******************** ***************************** 

& MIUI B12737 MJIM Ulll. """"""'i" .BE»UON L T,«»uP»D R J^^" t«' * B0Rt5S 

:« :ssj! i;:?!* :.?ss n? &"?.. M . ur^s^r™ BE «.«,, 

IS HsS S! "2 '"" 35™ $?•""• ^ T ^i isv^\?rr 

1000 uiiiiiiiiinniniiin/nniim/niniiiiiinimiiiiiiiiiiiiiniiin 

}I!i \iiiii/iiii/fiiiiiiiniiiinnifinniiiiiiiiiiiinniin/iniiiiiiiin 

liis S03620 012700 001612 MOV #PARMBK,R0 IR0»13T ADDRESS OF PARAMETER BLOCK 

1005 003630 103737 001612 IS* ™TB #*PAKMBK IWAIT ON FLAG 

1006 003634 001775 J" IS 

;s unit vsss «.» « L * s. : .e«.«. s b^s* 



1010 



TAU DATA RELIABILITY MAINDECil-DZTAE-C ^YU 27 {J 8 "' "-" AR * 77 ** 155 HAGE *" 

DZTA.EC.Pil 17«MAR»77 14»52 "READ ONLY" ROUTINE 

I SETUP FOR "READ" 
I///////////////////////////////////"//////'/"""""'""""""" 

2S! JSR PC,#*SETUPR I3ETUP FOR "READ" 

BR s$ IGO START A READ 

Min/iiiiimiiiiiiiinm/iiininiiiiiiiiiiiiiiniiiiinini/iniin 

I "BSBG" — IF SCOPE OR SOFT DATA ERROR 

Minimi inn muni mm n tin tinniifiiininnnnininnittn 

JSS MOV #5S,«»SSLPADR ISETUP THE SCOPE LOOP ADDRESS 

MOV 9PARMBK,R0 |R0»1ST ADDRESS OP PARAMETER BLOCK 

JSR PC,**B5BG IGO TO BSBG 

a«: TSTB *#PARMBK IWAIT ON FLAG 

8EQ «S 

B p L ss IGO TRY TO REREAD 

JSR R0 r #*CSRERR ISO CHECK CSR ERROR 

JMP *#SEUP IGO TO ENU»OF«PHOGRAM 

Miimmmnmiimmmmimmmmiimmniimnmiimi 

I "READ 8 BLOCK OK DATA tijj 

I/////////////////////////////////////////////'//""""""""""" 

ggi MOV »38i*#SLPADR ISET THE LOOP ADDRESS 

MOV #PARMBK,R0 |R0*1ST ADDRESS OF PARAMETER BLOCK 

JSR PC,«»*READ IGO TO READ 

d$t TSTB S»JtPAWMBK IWAIT ON FLAG 

BEG bS 

BPL 7S IBR IF NO ERROR 

JSR R0,S>*C»RERR IGO TO CSR ERROR CHECK 

JMP 0#$EUP IGO TO END-OF-PROGRAM 

}miimmiiimtnii inn tint anmi in tin nm tint timiiimn 

f CHECK FOR SYNC ERROR , Mt 

I imitttmtttitm tit/ittti tint it tiitiiiintiiiittiiiiiiiititti tint 

7SJ JSR PC,#*SYNCX IGO CHECK FOR SYNC ERROR 

BR s$ IRETURN HERE IF NO ERROR 

ERROR 2 I8YNC ERROR 

JMP 9#$E0P IGO TO END»OF*PROGRAM 

Mimmmmmimmmtiimiimmiittmtiimtmiimitttm 

I CHECK FOR DATA ERROR 

unniniiinniminiiiiinniinnnniiiiiiniiiiiininiiiiiiiin 

SSI JSR PC.0SDATCMP IGO CHECK THE DATA 

BR 9 $ IRETURN HERE IF NO ERHOK 

ERROR 1 IDATA ERROR 

JSR R0,0*CNTSFT ICOUNT SOFT ERROR 

B R 3$ ITRY TO REREAD 

JSR R0,#aiCNTHHD ICOUNT HARD ERROR 

BR g§ JMOVE TO NEXT BLOCK 

JMP P#«EOP ITO MANY HARD ERRORS 

9$I SCOPE 

ninn ilium in iinnnnn iin ninniiiiinninnninintii inn 

| IF LAST FILE OF L*ST BLOCK GOTO QKEOTS 

iiiinniiiinniiininiiiiiiiiiiniiiniiiniiiiiiinnnniiniiiin 

IRESET THt REREAD TRYS 

ILA5T FILE 

IBR IF NO 

ILAST BLOCK 

IBR IF NO 

ICOUNT ENU*OF»TAPE 

ICHECK FOR END*OF»PASS 

uiiiiiniiiniiiiYiiininiiiiiiiiiiiiiiiiiiiiiiiiiniiiiiiniiiniiii 



1011 

1012 
1013 








003650 


004737 


006220 


1014 


003654 


000417 




1015 








1016 








1017 
1018 


003656 


012737 


003714 001106 


1019 


003664 


012700 


001612 


1020 


003670 


004737 


006742 


1021 


003670 


105737 


001612 


1022 


003700 


001775 




1023 


003702 


100004 




1024 


003704 


004037 


005536 


1025 


003710 


000137 


004412 


1026 








1027 
1026 
1029 








003714 


012737 


003656 001106 


1030 


003722 


012700 


001612 


1031 


003726 


004737 


006732 


1032 


003732 


105737 


001612 


1033 


003736 


001775 




1034 


003740 


100004 




1035 


003742 


004037 


005536 


1036 


003746 


000137 


004412 


1037 








1038 
1039 
1040 








003752 


004737 


006254 


1041 


003756 


000403 




1042 


003760 


104002 




1043 


003762 


000137 


000412 


1044 








1045 
1046 
1047 








003766 


004737 


006356 


1048 


003772 


000411 




1049 


003774 


104001 




1050 


00S77& 


004037 


006550 


1051 


004002 


000725 




1052 


004004 


004037 


006606 


1053 


004010 


000402 




1054 


004012 


000137 


004412 


1055 


004016 


000004 




1056 








1057 
1058 
1059 








004020 


013737 


001260 001224 


1060 


004026 


123737 


001236 001304 


1061 


004034 


003007 




1062 


004036 


123737 


001234 001306 


1063 


004044 


003003 




1064 


004046 


005237 


001212 


1065 


004052 


000544 




1066 









MOV 


$#MAXRU5 


#*RDTRYS 


CMPB 


0*LAST*"L 


HSFILE 


BGT 


10S 




CMPB 


9«LASTBK 


98BLQCK 


BGT 


10S 




INC 


P#EQTS 




BR 


CKEOTS 





TA11 DATA RELIABILITY MA JNDEC-1 1«DZTAE«C 
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MACYli 27Cl00bJ 17»MAR»77 
"REAP ONLY" ROUTINE 



14J55 PAGE 25 



1067 








; 


UPDATE 


BLOCK * & Flit $ 


1008 








i //////////////////////////////// 


1069 


004054 






I0s; 






1070 


004054 


062737 






ADD 


CPC)*,S»(PC) + 


1071 


004056 


001 


377 




„BYTE 


1,-1 


1072 


004060 


001306 






.WORD 


BLOCK 


1073 


004062 


123737 


001310 001306 


CMPB 


PfStFlLfcSZfS^BLOCK 


1074 


004070 


003267 






BGT 


2$ 


1075 


004072 


062737 






ADD 


CPCJ^nPcj* 


1076 


004074 


001 


377 




9 BYTE 


1,-1 


1077 


004076 


001304 






.WORD 


FILE 


1076 


004100 


012737 






MOV 


tPCJ *, i»CPCJ + 


1079 


004102 


000 


377 




9 BYTE 


0,377 


1080 


004104 


001306 






„WORD 


BLOCK 


1031 








I//////////////////////////////// 


1082 








; 


"SPACE" 


'FORWARD-FILe-GAP" 


1083 








; //////////////////////////////// 


1064 


004106 


012700 


001612 




MOV 


#PARMBK,R0 


1065 


004112 


004737 


00674b 




JSR 


PC,M5FFG 


1086 


004116 


105737 


001612 


list 


TSTB 


##PAKMttK 


1087 


004122 


001775 






BED 


IIS 


1088 


004124 


100251 






BPL 


2$ 


1089 


004126 


004037 


005536 




JSR 


R0,0s*C5RERK 


1090 


004132 


000137 


004412 




JMP 


S»»$EUP 


1091 















////////////////////////////////////// 

[INCREMENT THE BLOCK NUMBER 



[TIME FOR A FILE GAP? 

/BR IF NO 

[INCREMENT THE FILE NUMBER 



UNITIALIZE THE BLOCK NUMBER 
[SET BYTE TO AND BYTE 1 
/TO THE 1'S COMP s OF BYTE 
////////////////////////////////////// 

////////////////////////////////////// 

[R0»1ST ADDRESS OF PARAMETER BLOCK 
/GO TO SFFG 
[WAIT ON FLAG 

[GO READ 

[go check c3r error 
;go to end«of«prqgram 
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1092 








1093 








1094 








1095 








1096 








109? 








1098 








109<? 








1100 








1101 








1102 








1103 








1104 








1105 








1106 








1107 








1108 








1109 








1110 








1111 








1112 








1113 








1114 








1115 








1116 








1117 


004136 






1118 


004136 


012737 


004136 


1119 


004144 


104401 


013304 


1120 


004150 


004737 


007564 


1121 


004154 


104401 


001203 


1122 


004160 


012737 




1123 


004162 


000 


377 


1124 


004164 


001306 




1125 


004166 


012737 




1126 


004170 


000 


377 


1127 


004172 


001304 




1128 








1129 








1130 








1131 


004174 


012700 


001612 


1132 


004200 


004737 


006756 


1J33 


004204 


105737 


001612 


1134 


004210 


001775 




H35 


004212 


100022 




1136 


004214 


004037 


005536 


1137 


004220 


000137 


003412 


1138 








1139 








11«0 








ll«l 


004224 






1142 


004224 


012700 


001612 


1I«3 


004230 


004737 


006722 


11«« 


004234 


105737 


001612 


1 1*5 


004240 


001775 




1146 


004242 


100006 




11*7 


004244 


004037 


00553b 



[ /////////////////////////////////////////////////////// /////////////// 
i /////////////////////////////////////////////////////////// /////////// 
[ /////////////////////////////////////// /////////////////////////////// 
t ///////////////////////////////////////////////// ///////////////////// 



„SBTTL 



"WRITE ONLY" ROUTINE 



[THIS ROUTINE PERFORMS THE FOLLOWING SEQUENCE 

I 

I 1, REWIND TO BUT 

[ 2 9 WRITE FILE GAP 

[ 3 9 WRITE BLOCK OF DATA 

I 4 9 UPDATE THE BLOCK NUMBER 

[ 5„ END OF FILEY 

[ A„ NU — GOTO 3„ 

I B 9 YES 

» !•) UPDATE FILE NUMBER 

t 2«) RESET 8L0CK NUMBER TO 

[ J.) GOTO 2 8 

[ 

WRITEONLY! 

MOV 

TYPE 

JSR 

TYPE 

MOV 

9 8YTE 

.WORD 

MOV 

»BYTE 

„WQRD 
I///////////// 
[ "REWIN 

wn/tuunu 

MOV 

JSR 
191 TSTB 

BEQ 

BPL 

JSR 

JMP 
[///////////// 
[ "WRITE' 

2$! 



MOV 

J5R 

TSTB 

BEQ 

BPL 

JSR 



*WR1TEUNLY,P«LPADR 

»M8G13 

PC,»»TPDRV 

,SCRLF 

tPC)*,*CPC3+ 

0,37/ 

BLOCK 

CPCJ*,*»CPU* 

0,377 

FILE 
////////////////////// 
D H TO "BUT" 
////////////////////// 

#PARMBK,R0 

PC,MRfcWIND 

##PANMBK 

IS 

4S 

R0,*»#C5RERR 

3»*SEUP 
////////////////////// 

FILE«*UAP" 
////////////////////// 

#PARMBK,R0 

PC,#*W^ 

••PAKMBK 

3S 

1$ 

R0,#»C8RERR 



[SETUP SCOPE LOOP ADDRESS 

[»*«* WRITE ft**" 

[TYPE DRIVE TO BE TESTED 

[INITIALIZE THE BLOCK NUMBER 
[SET BYTE TO AND BYTE 1 
[TO THE I'S COMP, OF BYTE 
[INITIALIZE THE FILE NUMBER 
[SET BYTE TO AND BYTE 1 
[TO THE I'S COMP, OF BYTE 
/////////////////////////////////// 

//////////•//////////////////////// 

[R0»IST ADDRESS OF PARAMETER BLOCK 
[GO TO REWIND 
[WAIT ON FLAG 

[BR IF NO ERROR 
[GO TO CSR ERROR CHECK 
[GO TO END«OF»PROGRAM 
/////////////////////////////////// 

/////////////////////////////////// 

[R0H1ST ADDRESS OF PARAMETER BLOCK 
[GO TO WFG 
[WAIT ON FLAG 

[BR IF NO ERROR 

[GO TO CSR ERROR CHECK 



TAil DATA RELIABILITY MAINDEC-ii-DZTAE-c 
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"WRITE ONLY" ROUTINE 



H48 


004250 


000137 


004412 


1149 


004254 


000137 


004364 


1150 








H51 








1152 








1153 


004260 


004737 


006072 


115H 


004264 


012737 


004272 


1155 


004272 






1156 


004271 


012700 


001612 


1157 


004276 


004737 


006726 


1158 


004302 


105737 


001612 


1159 


004306 


001775 




11*0 


004310 


100006 




11*1 


004312 


004037 


005536 


1162 


004316 


000137 


004412 


H63 


004322 


000137 


004364 


1164 


004326 


000004 




1165 








1166 








1167 








U68 


004330 


062737 




1169 


004332 


001 


377 


IJT0 


004334 


001306 




U71 


004336 


123737 


001310 


1J72 


004344 


003345 




1173 


004346 


062737 




1174 


004350 


001 


377 


1175 


004352 


001304 




U76 


004354 


012737 




1177 


004356 


000 


377 


1178 


004360 


001306 




1179 


004362 


000720 





JMP #*StUP 

JMP $#CKtOTS 
I//////////////////////////////////// 
I "WRITE" A BLUCK OF DATA 

f ///////// ////////////////// ///////// 



481 



JSR 
MOV 

MOV 

JSR 

T8T8 

8EQ 

BPL 

J5R 

JMP 

JMP 

SCOPE 



PC f S>SStTUPW 
85f »f»#»LPADR 

#PARMBK,R0 

PC,»»WNITfc 

MPAKMBK 

6S 

7S 

R0,PffCSRfcKK 

0»#$EUP 

S>*CKEOTS 



J//////////////////////////////////// 
I UPDATE BLOCK # ft FILE * 

I//////////////////////////////////// 



001306 



ADD 

a BYTE 

9 WORD 

CMPB 

BGT 

ADD 

S BYTE 

.WORD 

MOV 

9 BYTE 

B WORD 

BR 



IPC)*»*CPC)+ 
1,-1 

BLOCK 
•#FlLt»Z»##BLOCK 

as 

cpcj*,pcpcj+ 

1,-1 

FILE 

IPCJ+t'CPCJ* 

0,377 

BLOCK 

2$ 



/GO TO END«»OF«"PROGRAM 
////////////////////////////////// 

////////////////////////////////// 

IGO SETUP FOR "WRITE" 
7SETUP SCOPE LOOP ADDRESS 

fR0«lST ADDRESS OP PARAMETER BLOCK 
»GO TO WRITE 
{WAIT ON FLAG 

J8R IP NO ERROR 

JGO TO CSK ERROR CHECK 

IGO TO END«QF-PHOGRAM 

////////////////////////////////// 

n/nnt/ututn/tfuntu/nuu 

^INCREMENT THE BLOCK NUMBER 



JTIME FOR A FILE GAP? 

»8R IF NO 

^INCREMENT THE FILE NUMBER 



UNITIALIZE THE BLOCK NUMBER 
ISET BYTE TO AND BYTE I 
;TO THE i'S COMP, OP BYTE 
JSTART A PILE GAP 



TAli DATA RELIABILITY MAINDEC-il-DZT*E«C 
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1180 
U81 
1182 
1133 
U«4 
1185 
1186 
1187 
1188 
1189 
1190 
11^1 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1203 
1206 



Mi/nii/nnntnun/nutnununnunnnuuituuunnntnu 
i ///////// //// utmi a Hittn/tHniftn/in/nnutnntntn/ntnn 



004364 000004 

004366 023737 001212 

004374 002006 

004376 032777 000400 

004404 001002 

300137 002774 



CHECK "EQTS" 









WHEN A "FORMAT" OR "WRXTtONLY" PASS HITS "EOT" OR A 
"READONLY" PASS RE*US THE LAST BLOCK OF THE LAST FILE 
THEY WILL COME HERE 

1. (EOTSJ IS CHECKED 

A 8 CEQTSJBIMAXEOT) GOTO SEQP 

B B ltQT8)<lMAX60TJ GOTO 2 
2 9 3WR«8*> « 17 

A s YtS — GOTO SEOP 

8, NO »« GOTO LOOPER 



CKtOTSJ SCOPE 






CMP 


S9#EQTS,##MAXfcOT 


JMAX, EOTS OCCURRED? 


BGE 


iEOP 


JBR IF YES 


BIT 


#3W0tt,S>SWR 


I IF SWR<*0fl» s i 


BNE 


SEOF 


JGOTO END«*QF-»TEST 


JMP 


f#LOOPER 


?NO w »LOQP 



TA11 DATA RELIABILITY MAINDEC-1 1«DZTAE»C MACY11 27(10l06j 17»MAR«77 1 Q X bS 
0ZTAECP11 U^MAR.77 14152 END OF PASS ROUTINE 

.SBTTL END OF PASS KOUTINE 



1207 








1208 








1209 








1210 








1211 








1212 








1213 








1214 








1215 








1216 








1217 


004412 






1216 


004412 


000004 




1219 


004414 


005067 


174462 


1220 


004420 


005267 


174454 


1221 


004424 


042767 


100000 


1222 


004432 


005327 




1223 


004434 


000001 




1224 


004436 


003137 




1225 


004440 


012737 




1226 


004442 


000001 




1227 


004444 


004434 




1228 


004446 


104401 


000745 


1229 


004452 


104401 


004742 


1230 


004456 


013700 


000042 


1231 


004462 


001525 




1232 


004464 


000004 




1233 








1234 








1235 








1236 


004466 


012700 


001612 


1237 


004472 


004737 


006756 


1238 


004476 


104401 


013031 


1239 








1240 


004502 


104401 


013056 


124J 


004506 


013746 


001206 


1242 


004512 


004737 


007366 


1243 


004516 


004737 


007422 


1244 








1245 


004522 


104401 


013074 


1246 


004526 


013746 


001210 


12«7 


004532 


004737 


007366 


1248 


004536 


004737 


007422 


1249 








1250 


004542 


104401 


013112 


1251 


004546 


012746 


001214 


1252 


004552 


004737 


007172 


1253 


004556 


004737 


007422 


1254 








1255 


004562 


104401 


013127 


1256 


004566 


012746 


001220 


1257 


004572 


004737 


007172 


1258 


004576 


004737 


007422 


1259 








1260 


004602 


104401 


0131U7 


12M 


004606 


013746 


001212 


1262 


004612 


004737 


007366 



,*>***************«**«* **»****»**«******»**<,*«, »*******«ft***«*«(*ftftft 

^INCREMENT TMt PASS NUMBER CSPASSJ 

/&TYPE "END PASS" 

/*IF THERES A MONITUK tiO TO IT 

/*IF THERE ISN'T JUMP TO START 

>*IF IT IS DESIRED TU HAVE A BELL INDICATE THE "END OF PASS" LOCATION 

MSENDMG CAN Bt CHANGEU TO 7 9 

SEOPJ 

SCOPE 

CLR STSTNM 

INC SPASS 

BIC *100000, SPASS 

DEC IPO* 

SEUPCTS »WORD 1 

B6T SDOABN 

MOV CPC}*,0CPC)+ 

iENDCTS .WORD 1 

SEOPCT 

TYPE ,SENUMb 

TYPE ,$ENULL 

SGET42I MOV $#42, R0 
SDOAbN 



MZERO THE TEST NUMBER 

I/INCREMENT THE PASS NUMBER 

//DON'T ALLOW A NfcG g NUMBER 
//LOOP? 

//YES 

//RESTORE COUNTER 



BEQ 
SCOPE 

I TYPE END-OF-TEST STATIS 

/ //////////////////////// ////// 

MOV #PARMBK,R0 
JSR PC,e»RfcWIND 
TYPE ,MSGl 



TYPE 


, MSGi 


MOV 


P#SOf TNM,«ISPJ 


JSR 


PC,P»SSB2D 


JSR 


PC^SSUPRS 


TYPE 


rMSQi 


MOV 


##HAKDNM,wtSP) 


JSR 


PC,»»SSB2D 


JSR 


PC,«»*5SUPKS 


TYPE 


,MSG4 


MOV 


»RBYTTL,»ISP) 


JSR 


PC,S>»$U82U 


JSR 


PC,S»»SSUPR5 


TYPE 


,MSG5 


MOV 


»WBYTTL,»15P; 


JSR 


PC,P8SUB2U 


JSR 


PC»MSSUPHS 


TYPE 


,MSGb 


MOV 


P»EOTS,»CSP) 


JSR 


PC,«>#8SB20 



MTYPE "END PASS" 
//TYPE A NULL CHARACTER 
//GET MONITOR ADDNESS 
//BRANCH IF NO MONITOR 

//////////////////////////////////////// 

TICS 
//////////////////////////////////////// 

JR08PAKAMETER BLOCK ADDRESS 

/START A REWIND 

MCRLF>"*** END~OF*-TEST ***" 

MCRLF* q SQFT ERRORS**" 

/PICKUP SINGLE PRECISION BINARY NUMBER 

/CHANGE IT TO OECIMAL ASCIZ 

/TYPE WITHOUT LEADING ZEROS 

MCRLF» n HARD ERRORS*" 

/PICKUP SINGLE PRECISION BINARY NUMBER 

ICHANGE IT TO DECIMAL ASCIZ 

/TYPE WITHOUT LEADING ZEROS 

MCKLF*- M BYTES READ*" 

IGET ADDRESS OF DOUBLE PRECISION BINARY 

/CHANGE IT TO DECIMAL ASCIZ 

/TYPE IT WITHOUT LEADING ZERO 

f<CRLF>"BYTE5 WRITTEN*" 

/GET ADDRESS OF DOUBLE PRECISION BINARY 

/CHANGE IT TO DECIMAL ASCIZ 

/TYPE IT WITHOUT LEADING ZERO 

Z*CRLF»*TAPE PASSES®* 

/PICKUP SINGLE PRECISION BINARY NUMBER 

ICHANGE IT TO DECIMAL ASCIZ 



TA11 DATA RELIABILITY MAINDEC-U-DZTAE-C MACYH 27C1006J 17«»MAR*77 l« 5 55 PAGE 30 

DZTAECsPH 17»MAR*77 14152 END OF PASS ROUTINE 



12&3 

1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
12S3 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 



004616 004737 007422 



004622 104401 

004626 013700 

004632 105200 

004634 010046 

004636 004737 

004642 004737 

004646 104401 

004652 013746 

004656 004737 

004662 004737 



013165 
001236 



007366 
007422 

013202 
001310 
007366 
007422 



004666 104401 001204 



004672 032777 
004700 001406 
004702 000000 



022767 
001001 
104405 



004712 
004714 
004716 
004716 
004716 
004722 
004724 
004726 
004730 
004732 
004734 
004736 
004736 
004740 
004742 
004745 
004752 



013700 
001405 



004710 
000240 
000240 
000240 

000137 

002630 

377 

015 

050040 



01000 174240 



00176 174226 



/TYPE WITHOUT LEADING ZEROS 

/«CRLFs-"FILES/PAS5b w 
/PICKUP THE LAST FILE NUMBER 
/ADD 1 TO MAKE IT # OF- FILES 
/PUT IT ON THE 5TACK 
/CHANGE IT TO DECIMAL ASCIZ 
/TYPE IT WITHOUT LEADING ZEROS 

MCRLF* B BL0CK3/FILE8 M 

/PICKUP SINGLE PRECISION BINARY NUMBER 

/CHANGE IT TO DECIMAL ASCIZ 

/TYPE WITHOUT LEADING ZEROS 

TYPE ,SLF 

wutntt/unttn/utt/ntnntuunut/niununnn//tuutntttt 

/ CHECK HALT AT END»OF«TEST SWITCH 

iftittntutt/tn/tutnuunnnttHutnn(ittt/m//nttnnittun 

BIT »SW0¥,#SWR fHALT AT END«-OF*TEST? 

BEQ 1008 ;BR IF NO 

HALT ,YES 



JSR 


PC,MS8UPRS 


TYPE 


»MSG7 


MOV 


P«LA3TKLfRia 


INCB 


R0 


MOV 


R0,*"lSPJ 


JSR 


PC,*»«*SSB2D 


JSR 


PC,*>»$SUPR5 


TYPE 


»MSGS 


MOV 


##FILESZ,*»CSP) 


JSR 


PC,0SSSB2D 


JSR 


PC,0*S3UPRS 



20SJ 
100SS 



CMP 
BNE 
GTSWft 



377 

042412 
051501 



042116 
000123 



SRTNAD! 
SENULLS 
SENDMGJ 



»SWREG,SWK 
20$ 



MOV ##42,R0 

BEQ SOOAGN 

RESET 

JSR PC,tK0J 

NOP 

NOP 

NOP 



/USING S/w SWITCH REG? 
/NO" GET OUT 
/GET VALUE 
/CONTINUE 

//INSURE R0 CONTAINS THE MONITORS 

//RETURN ADDRESS 

//CLEAR THE WORLD 

//GO TO MONITOR 

//SAVE ROOM 

//FOR 

//ACT11 



JMP SKPCJ* //RETURN 

9 WORD START 

9 BYTE «1,»1,0 //NULL CHARACTER STRING 

8 ASCIZ «U5»«12&/END PASS/ 
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1303 








130a 








1305 








1306 








1307 








1308 








1309 








1310 








1311 








1312 








1313 








1314 


004760 






1315 


004760 


104406 




1316 


004762 


032777 


040000 


1317 


004770 


001025 




1318 








1319 


004772 


000416 




1320 








1321 


804774 


013746 


000004 


1322 


005000 


012737 


005020 


1323 


005006 


005737 


177060 


1324 


005012 


012637 


000004 


1325 


005016 


000404 




1326 


005020 


022626 




1327 


005022 


012637 


000004 


1328 


005026 


000406 




1329 


005030 






1330 


005030 


105267 


174046 


1331 


005034 


011667 


174046 


1332 


005040 


105067 


174037 


1333 


005044 


016777 


174032 


1334 


005052 


016716 


174030 


1335 


005056 


000002 





.SBTTL SCOPE HANDLER KQUTINt 



J j ft*** 

J*TMIS 

JfrAND 

MAND 

|*THE 

MSW14 

MCALL 

I* 



ROUTINE CONT«UL3 THE LOOPING OF SUBTESTS, IT WILL INCREMENT 
LOAD THE TEST NUMBER ISTSTNMJ INTO THE DISPLAY REG, (DISPLAYS !0») 
LOAD THE ERROR FLAG (SERFLG) INTO DISPLA Y«15 : 08» 
SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE! 
■1 LOOP ON TEST 



SCOPE 



|JSCUP6"I0T 



SSCOPEi 

CKSWR 
174150 IS! BIT 9BIT14,«>SWH 
BNE SOVER 
|*i#»#START OF CODE fOH THE XOR 



IITE8T FOR CHANGE IN SOFT-SWR 
HLOOf ON PRESENT TEST? 
IIYE5 IF SW14«l 
T ESTEW&#l£&itt 
SXTSTR! BR 6$ MIF RUNNING ON THE "XOR" TESTfcR CHANGE 

MTHI8 INSTRUCTION TO A "NOP" CNOP»240) 
MOV #*ERHVtC,«lSP3 HSAVE THE CONTENTS OP THE ERROR VECTOR 
MOV #5$,##tRRVeC HSET FOR TIMEOUT 
TST 0#l7f0b0 MTlMt OUT ON XOR? 
MOV ISP)*,0#ERRVEC HRESTORE THE ERROR VECTOR 
BR 3SVLAD NGO TO THE NEXT TEST 

53? CMP CSPJ*,ISPJ+ MCLEAR THE STACK AFTER A TIMfc OUT 
MOV (SP)*i«»#ERRVEC ffRESTQRE THE ERROR VECTOR 
BR SOVEK MLOOP ON THE PRE&ENT TEST 

bSI|«##*#END OF CODE FUR THE XOR TESTER####* 
SSVLADJ INCB 3TSTNM IJCOUNT TEST NUMBtRS 

MOV (SP)rSLPADR HSAVE SCOPE LOOP ADDRESS 
CLRB SERFLG HZERQ THE ERROR FLAG 

IOVER5 MOV STSTNM,#DISPLAY HUISPLAY TEST NUMBER 
MOV SLPAURiCSP) HFUDGE RETURN ADDRESS 
RTI HFIXES P5 
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1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
S350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
13b3 
1364 
136S 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 



005060 
005060 
005062 
005066 
005070 
005076 
005104 
005106 
005112 
005116 
005122 
005130 
005136 
005144 
005146 
005152 
005156 
005156 
005162 
005164 
005166 
005170 
005170 
005176 
005200 
005202 
005202 
005204 



104406 
105267 
001775 
016777 
032777 
001402 
104401 
005267 
011667 
162767 
117767 
032777 
001004 
004767 
104401 

005777 
1( 



022737 
001001 



174006 
002000 

005204 
173774 
173774 



173762 

020000 



000036 
001203 



173756 



174044 
174034 



173766 
173756 
173774 



»SBTTL ERROR HANDLER ROUTINE 



; fa**:*** 

MTHIS 

MSAVE 

J * AND GO 

JfcTHE SW 

M5W1581 

M3W13B1 

I&SW10&1 

MCALL 

;* 

SERRORJ 



OUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNTf 
HE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

TO TYPERR ON tRROR 
ITCH OPTIONS PROVIDED BY THI5 ROUTINE ARE! 

HALT ON ERROR 

INHIBIT ERROR TYPEOUTS 

BELL ON ERROR 



20SJ 
2$l 



004726 000042 



ERROR 



HERRORbEMT AND NbERROR ITEM NUMBER 



000002 
177607 



CKSwR 

INCB 

BEQ 

MOV 

BIT 

BEQ 

TYPE 

INC 

MOV 

SUB 

MOVB 

BIT 

BNE 

JSR 

TYPE 

TST 
BPL 

HALT 
CKSWR 

CMP 
BNE 
HALT 

RTI 
e ASCIZ 



SERFLG 

7$ 

STSTNM,f»0I3PLAY 

S8IT10,08WH 

IS 

iSBELL 

5ERTTL 

CSP3 ,SfcRRPC 

#2,SERRPC 

8>$ERHPC,S1TEMB 

#8IT13,PSWR 

20S 

PCiTYPERR 

,SCRLF 

$SWR 
3S 



#SENUAU,#S«2 



;;test for change in soft*»swr 
hset the error flag 
/;uon f t let the flag go to zero 
^display test number and errur flag 
mbell on error? 

HNO » 5KIP 

MRING BELL 

MCOUNT THE NUMBER OF ERRORS 

MGET ADDRESS OF ERROR INSTRUCTION 

j;STRIP AND SAVE THE ERROR ITfcM CODE 

MSKIP TYPEOUT IF SET 

HSKIP TYPEOUTS 

JJGO TO USER ERROR ROUTINE 



/jhalt on error 
JfSKIP if continue 

HHALT ON ERRORJ 

HTEST FOR CHANGE IN SOFT^SWR 

»MCT"ii AUTO»ACCEPT? 
J/BRANCH IF NO 
HYES 



«207»<s377»«377» 



MRETURN 

FJASCXX CODE FOR BELL 



TAll DATA RELIABILITY MAINDEC-1 1-DZTAE-C 
02TAfeC»Pl| 17«MAR»»7? 14J52 



MACY11 27(10636; 17«MAR*-77 
ERROR TYPEOUT KOUTINE 



1«J55 PAGE 33 



1377 








1378 








1379 


005210 


10U401 


001203 


1380 


005214 


010046 




138J 


005216 


010146 




1362 


005220 


005046 




1383 


005222 


113716 


001114 


1384 


005226 


005316 




1385 


005230 


006316 




1386 


005232 


006316 




1387 


005234 


006316 




1388 


005236 


116601 


000001 


1389 


005242 


112600 




1390 


005244 


066100 


005252 


1391 


005250 


000403 




1392 


005252 


001622 




1393 


005254 


001642 




139a 


005256 


001732 




1395 








1396 


005260 


012067 


000002 


1397 


005264 


104401 




1398 


005266 


000000 




1399 


005270 


104401 


001203 


1400 


005274 


012067 


000002 


1401 


005300 


104401 




1402 


005302 


000000 




1403 


005304 


104401 


001203 


1404 


005310 


060107 




1405 


005312 


000402 




1406 


005314 


000430 




1407 


005316 


000473 




1408 








1409 








1410 


005320 


010246 




1411 


005322 


012001 




1412 


005324 


012002 




1413 


005326 


000402 




1414 


005330 


104401 


013323 


1415 


005334 


012100 




1416 


005336 


001473 




1417 


005340 


105722 




1418 


005342 


001003 




1419 


005344 


011046 




1420 


005346 


104402 




1421 


005350 


000767 




1422 


005352 


010046 




1423 


005354 


004737 


007172 


1424 


005360 


062716 


000004 


1425 


005364 


012667 


000002 


1426 


005370 


104401 




1427 


005372 


000000 




1428 


005374 


000755 





JTMIS ROUTINE WILL TYPEOUT THE ERROR MESSAGES 



aft************* 



typerr: 


TYPE 


#SCRLF 




MOV 


R0,*CSPj 




MOV 


R1,«C5P) 




CLR 


"CSPJ 




MOVB 


e«3lTEMB, CSP) 




DEC 


CSP) 




ASL 


CSPJ 




ASL 


CSP) 




ASL 


CSP) 




MOVB 


1CSPJ,KJ 




HOVB 


ISP3*,R0 




ADD 


1SCH1),R0 




BR 


2$ 


IS! 


ITEMS0 
ITEMS! 
ITEMS2 




2Si 


MOV 
TYPE 


CR0)*,JS 


is: 









TYPE 


»SCRLF 




MOV 


CR0)*,4S 




TYPE 





TYPE ,$CRLF 

ADD «1, PC 

BR ERRQK0 

BR ERROR1 

BR ERROW2 



/TYPE "CR" & "LP" 

/SAVE R0 

/SAVE Rl 

/PICKUP TME ITEM BYTE 

/ADJUST TME INDEX SO IT 
/WILL WORK FOR THE 
IERROR TABLE 

IGET THE ERROR TYPE 
IGET THE ERROR NUMBER 
/FORM THE TABLE POINTER 



/PICKUP "ERROR MESSAGE" POINTER 
/TYPE "ERROR MESSAGE" 

/TYPE "CR B & "LF" 

/PICKUP "DATA HEADER" POINTER 

/TYPE "DATA HEADER" 

/TYPE "CR« & "LF" 
/GO TYPE THE DATA 



\tn/tntunn/n/u/ntt//nnntHnnnH//ntnutfH(//unnn!/ 



ERROR0! 


MOV 


R2,*C5P) 




MOV 


CR0)*,Ki 




MOV 


CR0J*,H2 




BR 


2S 


iss 


TYPE 


»M5Gia 


2,? J 


MOV 


CR1)*,W0 




BEQ 


EREXT1 




TST8 


CR2)* 




BNE 


3$ 




MOV 


CR0i f ««CSP) 




TYPOC 






BR 


1$ 


3$! 


MOV R0, 


"CSPJ 




JSR 


PC,«»*SUB2D 




ADD 


#4, ISPJ 




MOV 


CSP)*,4S 




TYPE 




4SS 


,WORD 


tt 




BR 


IS 



/SAVE R2 

/PICKUP THE "DATA POINTER* 

/PICKUP "FORMAT" POINTER 

I it « 

/GET ADDRESS OF DATA WORD 

/GO TO EXIT IF 

/TYPE DECIMAL OR OCTAL? 

/BR IF DECIMAL 
//SAVE IR0J FOR TYPEOUT 
//GO TYPE*»OCTAL A3CIICALL DIBITS) 

/GO GET NEXT DATA WQRU 

/CHANGE NUMBER TO ASCIZ 

/TYPE 6 DIGITS 

/ 

/CALL TYPE ASCIZ MESSAGE ROUTINE 

/ADDRESS OF ASCIZ STRING 

/GO GET NEXT DATA WORD 
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1429 






1430 


005376 


011001 


1431 


005400 


013146 


1432 






1433 


005402 


104402 


1434 


005404 


012767 000003 


1435 






1436 


005412 


104401 013323 


1437 


005416 


005327 


1436 


005420 


000000 


1439 


005422 


001412 


14«0 


005424 


012146 


14«1 


005426 


004737 007172 


1442 


005432 


062716 000004 


1443 


005436 


012667 000002 


1444 


005442 


104401 


1445 


005444 


000000 


1446 


005446 


000761 


144? 


005450 


013101 


1448 


005452 


016167 005466 


1449 


005460 


104401 


1450 


005462 


000000 


1451 


005464 


000421 


1452 






1453 






1454 


005466 


012067 


1455 


005470 


012106 


1456 


005472 


012114 


1457 


005474 


012121 


1458 


005476 


012145 


1459 


005500 


012170 


1460 


005502 


012213 


1461 


005504 


012235 


1462 






1463 






1464 


005506 


011000 


1465 


005510 


005710 


1466 


005512 


001406 


1467 


005514 


013046 


1468 


005516 


104402 


1469 


005520 


104401 013323 


1470 


005524 


000771 


1471 






1472 






1473 


005526 


012602 


1474 


005530 


012601 


1475 


005532 


012600 


1476 


005534 


000207 


1477 






1478 







l' , ' , J ,unnn,,nnt,f/f/ i ,/ ii" / tiittittt//tutttn/u/tutittuitti 



ERROR15 MOV 
MOV 



5SS 



TYPOC 
MOV 

TYPE 

DEC 

„WORD 

BEQ 

MOV 

JSR 

ADD 

MOV 

TYPE 

»WORD 

BR 

MOV 

MOV 

TYPE 

*WORD 

BR 



CR0J 
0CR1J+ 



$3,2% 

,MSG14 
IPCJ* 



4$ 

CR1)*,»CSP) 
PC,0#SUB2D 
$4, CSPJ 
CSP)*,3g 



IS 
«>CR1J*#R1 

BADFUNCRUf 



EREXT2 



/PICKUP THE "DATA POINTER" 
//SAVE 0CR1J* FOR TYPEOUT 
Z/SERRPC 
//GO TYPE**OCTAL ASCIICALL DIGITS} 

/PRINT 2 SPACES 3 TIMES 

/AND 2 DECIMAL #'S 2 TIMES 

/" H 

/TYPE ANOTHER # T 

/BR IF NO 

|YES-»»PICKUP ADDRESS OF * 

/GO CHANGE TO DECIMAL ASCIZ 

/ONLY TYPE THE LAST 6 DIGITS 

/SAVE AD0RE83 OF ASCIZ STRING 

/CALL THE TYPE ROUTINE 

/POINTER GOES HERE 

/LOOP 

/PICKUP FUNCTION INDEX 

/GET TME FUNCTION MESSAGE 

/AND TYPE IT 

/MESSAGE POINTER GOES HERE 

/GO TO EXIT 



/THIS TABLE CONTAINS TME POINTERS TO TME DIFFERENT ASCIZ MESSAGES 

/FOR TME FUNCTION BEING PERFORMED WMEN THE ERROR OCCURRED, 

BAUFUN! MXWFG } WRITE~FILE»6AP 

MXWRIT | WHITE 

MXREAD J READ 

MXBSFU / BACK*"5PACE»FILE*"GAP 

MXBSBG f BACK*SPACE*BLK«GAP 

MXSFFG ? SPACE»FWD*FILE*GAP 

MXSFBG ; SPACE»FWD«BLK«GAP 

MXRWND | REWIND 

""'"''''''''""''"'"'"""'tittutti/ttt/nitittuuttttitiitttt 

' "■' /PICKUP TME DATA POINTER 

/ALL DATA TYPED? 
/BR IF YES 
//SAVE PCS0J* FOR TYPEOUT 
//GO TYPE— OCTAL ASCIICALL DIGITS) 
|« n 

/LOOP 

wufntunntnunnn/nntunnnntttntninnNitnnntntni 

EREXTll MOV ISPJ*,K2 /RESTORE R2 

EREXT2I MOV CSPJ*, HI /RESTORE Rl 

MOV CSP)*,K0 /RESTORE R0 

RTS PC /RETURN 



ERR0R2S MOV 


CR0J ,R0 


1SI T5T 


CR0J 


BEQ 


EREXT2 


MOV 


PCR0J* f -CSPJ 


TYPOC 




TYPE 


,MSG14 


BR 


IS 
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1479 
1480 

laei 
ia82 

1483 

U84 

14B5 
I486 
1487 
1488 
1489 
1490 
14^1 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 



005536 
005544 
005552 
005556 
005562 
005566 
005574 
005576 



005604 
005606 
005612 
005614 
005620 
005622 
005626 
005630 
005634 
005636 
005642 
005644 
005646 
005650 
005652 
005654 
005656 



005660 
005662 
005664 
005666 
005670 
005672 
005674 
005676 
005700 

005702 
005704 

005706 
005710 



Muttu/un/itn tun nu tun/nun ut/t in uunnu/tntnii tun 
}tttnn/ut/tt/iui t/ttitt/uinn/t/ntnunin/tun/nnnnnutt 

„SBTTL UETEKIUNfc CONTROL AND STATUS ERROR 



113737 
113737 
013746 
042716 
011637 
11376b 
012601 
005046 
032701 
001025 
032701 
001021 
032701 
001015 
032701 
001011 
032701 
001005 
032701 
001001 
005216 
005216 
005216 
005216 
005216 
005216 

106316 
062607 



001304 
001306 
007170 
177761 
001172 
001612 



01162 
01166 



000407 
000410 
000462 
000463 
000464 
000472 

104101 
000200 

104102 



CSRERRS MQV8 
M0V8 
MOV 
BIC 
MOV 
MOVB 
MOV 
CLR 
BIT 
BNE 
BIT 
BNE 
BIT 
BNE 
BIT 
BNE 
BIT 
BNE 
BIT 
BNE 
INC 
INC 
INC 
INC 
INC 
INC 



151 

2$: 

35! 

4SJ 
5SS 
6$2 



ASLB 

ADD 

BR 

BR 

BR 

BR 

BR 

BR 

BR 

OLsERR* ERROR 
RTS 

WUERR! ERROR 
RTS 



S»FILE,«»#SHEG0 

$#8LOCK, 0»SREG2 

##FUNLUC»-ISP3 

»*CFUNCTION f ISP) 

CSPJ ,S»*STMP0 

«9#PAWMBK,HSP) 

ISP)*,K1 

»(SPJ 

#OFFlINe,Kl 

bS 

3WRTLULK,R1 

53 

»LEAUER,R1 

4$ 

»FGAP,«i 

3$ 

#TlMfcRK f Rl 

2S 

»CRCtRR,Rl 

IS 

ISP) 

ISP) 

ISP) 

CSP) 

CSP) 

CSP) 

ISP) 

tSP)*,PC 

OL.EHR 

WL 8 EKR 

CUfcKR 

FG«ERR 

TM»EWR 

BC 9 EHR 

X„ERN 

101 



102 

R0 



JGET THE FILE NUMBER 

JGET THE BLOCK NUMBER 

JGET TMt LAST FUNCTION 

ICLEAR AWAY THE JUNK 

ISAVE THE FUNCTION COPE 

ICOMBINE THE ST/ER WITH 

ithe FUNCTION 

IFIND OUT WHAT CAUSED THE ERROR 

IOFP LINE? 

IBR IF YES 

JWRITE LOCK? 

;BR IF YES 

IBOT/EQT? 

IBR IF YES 

IFILE GAP? 

IBR IF YES 

HIMING? 

IBR IF YES 

IBLOCK CHECK? 

IBR IF YES 



UNKNOWN 

CRCERR 

TIMERR 

FGAP 

LEADER 

WRTLOCK 



^POSITION INDEX 
JBR TO THE ROUTINE 



IDRIVE IS OFFLINE 
IDRIVE IS WRITE LOCK 
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1526 


005712 


022737 


000000 


001172 


CL*ERRS 


CMP 


$XWFy,##STMP0 


1527 


005720 


001014 








BNE 


2S 


1528 


005722 








us 






1529 


005722 


162737 








SUB 


IPC)*,$»CPC)* 


1530 


005724 


001 


377 






9 BYTE 


lf-l 


1531 


005726 


001304 








9 WQRO 


FILE 


1532 


005730 


113737 


001304 


001236 




MOVB 


S»#FlLEr«LASTFL 


1533 


005736 


113737 


001310 


001234 




MOVB 


MFILESZ^LASTBK 


1534 


005744 


005337 


001234 






DEC 


##LASTBK 


1535 


005750 


000425 








BR 


3$ 


1536 


005752 


022737 


000002 


001172 


23! 


CMP 


9XWRITE,9>«TMP0 


1537 


005760 


001025 








BNE 


as 


1538 


005762 


113737 


001304 


00123b 




MOVB 


#!SFlLEf MLASTFL 


1539 


005770 


162737 








SUB 


lPC)*,nPO* 


1540 


005772 


001 


377 






„BYTE 


lr«l 


1541 


005774 


001306 








,WORD 


BLOCK 


1542 


005776 


113737 


00130b 


001234 




MOVB 


?#BLUCK,i»$LASTBK 


1543 


006004 


163737 


007164 


001220 




SUB 


##CBCNT,#»WBYTTL 


1544 


006012 


005637 


001222 






SBC 


#*WBYTTL*2 


1545 


006016 


005137 


001306 






COM 


03BLUCK 


1546 


006022 


001737 








BEQ 


11 


1547 


006024 


022020 






33! 


CMP 


IR0)*, IR0)* 


1548 


006026 


005237 


001212 






INC 


«»#EOTS 


1549 


006032 


000401 








BR 


5$ 


1550 


006034 


104103 






US' 


ERROR 


103 


1551 


006036 


000200 






591 


RTS 


R0 


1552 
















1553 


006040 


104104 






FGsERR! 


ERROR 


104 


1554 


006042 


000200 








RTS 


R0 


1555 
















1556 


006044 


104105 






TM 8 ERR! 


ERROR 


105 


1557 


006046 


000200 








RT3 


R0 


1558 
















1559 


006050 


104106 






BCERRS 


ERROR 


1696 


1560 


006052 


022737 


000004 


001172 




CMP 


#XREAD»0#S>TMP0 


15«>i 


006060 


001001 








BNE 


IS 


1562 


006062 


022020 








CMP 


IR0)*, IR0)* 


1563 


006064 


000200 






155 


RTS 


R0 


1564 
















1565 


006066 


104107 






X e ERR8 


ERROR 


107 


15&6 


006070 


000200 








RTS 


H0 



^FUNCTION "WRITE FILE GAP"? 
JBR IF NO 



IDECREMENT THE FILE NUMBER 



ISAVE LAST FILE NUMBER 
JAND LAST BLOCK NUMBER 

?BR IF NO 

IFUNCTION "WRITE"? 

IBR IF NO 

ISAVE LAST FILE NUMBER 

IDECREMENT THE BLOCK NUMBER 



ISAVE LAST BLOCK NUMBER 
ISUBTRACT RESIDUE COUNT FROM 
I THE TOTAL WRITE COUNT 
IIF NO BLOCKS IN THIS PILE 
IBACK TO LAST FILE 
IADJUST FUR RETURN 
ICOUNT END»QF*»TAPE 

I "CLEAR LEADER" ERROR 
JRETURN 

|"FILE GAP ERROR" 



ITIMINB ERROR 



IBLOCK CHECK ERROR 
IIF FUNCTION ISN'T A READ 
ITAKE THE M EOP« EXIT 
IADJUST FOR RETURN 



fUNKNOWN INTERRUPT 
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}5J>7 //»************************ ***************** ******* ************** 

}J?J //****»******«***«*********************************************** 

||** .SBTTL ROUTINE TO SETUP FOR A WRITE OPERATION 

\IH 'THIS ROUTINE WILL SETUP THE BYTE COUNT, DETERMINfc THE PATTERN TO 

}J;f 'S E WRITTEN UN TAPE, AUD THE SIZE OF THIS BLOCK TU THE TOTAL 

}J;J /NUMBER OF BYTES TRANSFERRED AND CALL THE ROUTINE TO FILL THE 

15'4 /WRITE BUFFER. 



1575 

15?b ? C*LL 

1577 ; 

1578 

1579 

1580 006072 013700 00130b SETUPW: MOV ##BLUCK,R0 



PC,0*SfcTUPW 



/GET THE BLOCK NUMBER 
/KEEP MAX PATTERN 



1581 006076 042700 177760 8IC S*Clb,,R0 , nti _ 

1582 006102 006300 ASL R3 z*2 

\lll SS!J?3 Itllll IVilll 00l22B AD0 BLKSZCH0J,*#WBYTTL /ADD THE BLOCK SIZE TU THE TOTAL 

158a 006112 005537 001222 ADC ##WBYTTL*2 



/NUMBER OF BYTES WRITTEN 



1585 006116 016037 001312 001620 MOV BLKSZ (K0) f »#PARMBK + 6 /SET THE BYTE COUNT 

1586 00612a 016000 001352 MOV PATS IKIfl) ,H0 



/GET PATTERN POINTER 



\lll HlWl 111111 0B6l3b JSR ".WILL JgS FIU wS TE BUFFER 

1588 00613a 000207 RTS PC /RETURN 

J 5 ? //**** ******************************** *************************** 

*Hl »SBTTL ROUTINE TO FILL THE BUFFER BEFORE A WRITE 

1592 ;cALU 

\Hl ' M0V #PATADN,RH MST ADDRESS OF S BYTE PATADR 

*5'« / JSR PC,«»«FJLL 

1595 ZTME BUFFER IS FILLED AS FULLOWSI 

1596 ; 

1597 /BYTES DATA 



1598 



/ 



1599 /000i pi LE NUMBER 

1600 Z0002 FILE NUMBER COMPLEMENTED 
18"! 101003 BLOCK NUMBER 

18 2 Z0U04 BLOCK NUMBER COMPLEMENTED 

1803 /0B05 DATA PATTERN 

1804 Z0006 DATA PATTERN 

1605 / * * * 

1606 f * « * 

1607 ; * * * 

1608 Z1027 9 DATA PATTERN 
1809 Z1028 9 DATA PATTERN 
1610 

1611 006136 FILLI 

1612 006136 010046 MOV R0,*15P) //PUSH R0 ON STACK 

1613 006140 010146 MOV Rl,»t8P) /ZPU5H Rl ON STACK 

1614 006142 010246 MOV R2,*15P) ZZPUSH R2 ON STACK 

1615 006144 010346 MOV R3,*ISPJ ZZPU5H R3 ON STACK 

\l\i lVt\tX Willi !f!ff! M0V *»««.'«.#»*l /FILL 1024, BYTES WITH PATTERN 

1617 006152 012702 013464 MOV »BUFHEK,H2 MST ADDRESS OF DATA BUFFER 

\i\\ IVL\1\ ZWIll HWll M ° V **FILE,CR2J* ZFILE NUMBER AND ITS COMPLEMENT 

llll !! 6 !J? Bl372 f 00l30& M0V **BLUCK,CR2)* ZBLOCK NUMBER AND ITS COMPLEMENT 

\tl< HVAl IMlll M ° V R0 ' Ri ;SAVE FIRST ADDRESS OP PATTERN 

\Jl m\ll 111111 l$l MQV R3 '"* ,RESET PATTERN POINTER 

1622 006172 012022 MOV tR0)*,CR2J* ZMOVE THE PATTERN 
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MOV CR0)*,tR2J* ZINTO THE BUFFER AREA 8 

MOV IR0)*, IR2J* 

MOV (R0)*,IR2J* 

DEC Rl 

BNE IS 

MOV (SP)+,M3 ZZPOP STACK INTO R3 

MOV CSP)*,W2 z/POP STACK INTO R2 

MOV ISP)*, HI z/POP STACK INTO Rl 

MOV CSPJ*,K0 /ZPOP STACK INTO R0 

RTS PC 

ZZ****************** ********************************************* 
/Z******** ********************************** ********************* 
*SBTTL ROUTlNfc TO SETUP FOR A READ 

ZTHIS ROUTINE WILL StTUP TME BYTE COUNT AND ADD THE SIZE OF THIS 
ZBLOCK TO THE TOTAL NUMBER OF BYTES READ, 



1623 


00617a 


012022 


1624 


006176 


012022 


1625 


006200 


012022 


1626 


006202 


005301 


1627 


006204 


001371 


1628 


006206 


012603 


1629 


006210 


012602 


1630 


006212 


012601 


1631 


006214 


012600 


1632 


006216 


000207 


1633 






1634 






1635 






1636 






1637 






1638 






1639 






1640 






1641 






1642 






1643 






1644 






1645 


006220 


013700 001306 


1646 


006224 


042700 177760 


1647 


006230 


006300 


1648 


006232 


066037 001312 


1649 


006240 


005537 001216 


1650 


006244 


016037 001312 


1651 


006252 


000207 


1652 






1653 






1654 






1655 






1656 






1657 






1658 






1659 






1660 






1661 






1662 






1663 






1664 






1685 






1666 






1667 






1668 






1669 






1670 


006254 


012700 013464 


1671 


006260 


011001 


1672 


006262 


000301 


1673 


006264 


062001 


1674 


006266 


005101 


1675 


006270 


001031 


1676 


006272 


011001 


1677 


006274 


000301 


1678 


006276 


062001 



/CALL 
Z 


JSR 


PC,SfcTUPR 




SETUPRJ 


MOV 


#>88LUCK,K0 


/GET THE BLOCK NUMBER 




BIC 


*~C15,,R0 


/KEEP MAX PATTERN 




ASL 


R0 


/X2 




ADD 


BLKSZCH0J»$#RBYTTL 


/ADD THE BLOCK SIZE TO THE TOTAL 




ADC 


?*R8YTTL*2 


/NUMBER OP BYTES READ 




MOV 


BLKSZ(K0J,9»*PARMBK*6 


/SET THE BYTE COUNT 




RTS 


PC 


/RETURN 



ZZ*************************************************************** 
»SBTTL ROUTlNfc TO CHECK FOR SYNC PROBLEMS 

/THIS ROUTINE CHECK5 THE FIRST FOUR BYTES OF THE DATA 
/BUFFER TO INSURE THE PROPER BLOCK WAS READ 
/BYTE 1 » FILE NUMBER 



/BYTE 


2 b FILE 


NUMBER COMP 


/BYTE 


3 ■ BLOCK 


NUMBER 


/BYTE 


4 ■ BLOC* 


NUMBER CUM 


/CALL 






/ 


JSR 


PC,*»SYNCK 


/ 


NORMAL 


RETURN 


/ 


ERROR RETURN 


Z 

SYNCKi 


MQV 


»BUFFER,R0 




MOV 


CR0J ,R1 




SWAB 


Rl 




ADD 


(R0}*,H1 




COM 


Rl 




BNE 


23 




MOV 


CR0) »R1 




SWAB 


Rl 




ADD 


CR0J*,H1 



/ADDRESS OF FIRST WORD 
/CHECK FILE # WAS READ OK 
/BYTE 1 SHOULD BE THE 
/COMPLEMENT OF BYTE 

ZBR IF FILE NUMBER READ WRONG 
/CHECK BLUCK • WAS READ OK 
/BYTE 3 SHOULD BE THE 
/COMPLEMENT OF BYTE 2 
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1679 


006300 


005101 




use 


006302 


001024 




1681 


006304 


023740 


00130b 


1682 


006310 


001003 




1&B3 


006312 


023740 


001304 


1684 


006316 


001416 




1685 


306320 


113737 


001304 001162 


1686 


006326 


113737 


001306 001166 


1687 


006334 


113737 


013464 001172 


1688 


006342 


113737 


013466 001176 


1689 


006350 


062716 


000002 


1690 


006354 


000207 




1691 








1692 








1693 








169^ 








1695 








1696 








1697 








1698 








1699 








1700 








1781 


006356 


013700 


001306 


1702 


006362 


042700 


177760 


1703 


006366 


006300 




1704 


006370 


016001 


001312 


1705 


006374 


012702 


013464 


1706 


006400 


012703 


000004 


1707 


006404 


012704 


001304 


1708 


006410 


005301 




1709 


006412 


122224 




1710 


006414 


001015 




nu 


006416 


005303 




1712 


006420 


001373 




1713 


006422 


012703 


000010 


1714 


006426 


016004 


001352 


1715 


006432 


005301 




1716 


006434 


002437 




1717 


006436 


122224 




1718 


006400 


001003 




1719 


006442 


005303 




1720 


006444 


003372 




1721 


006446 


000765 




1722 


006450 


005037 


001124 


1723 


006454 


005037 


001126 


1724 


006460 


114437 


001124 


1725 


006464 


010437 


001120 


1726 


006470 


114237 


001126 


1727 


006474 


010237 


001122 


1728 


006500 


005401 




1729 


006502 


066001 


001312 


1730 


006506 


010137 


001230 


1731 


006512 


113737 


001304 001162 


1732 


006520 


113737 


001306 001166 


1733 


006526 


062716 


000002 


1734 


006532 


000405 





COM 
BNE 
CMP 
BNE 
CMP 
BEQ 

is; MOVB 
MOVB 
MOVB 
MOVB 
ADO 

2SS RTS 

| j ************ 
•SBTTL 



»IR0J 



HI 

23 

P#8LUCK, 

IS 

S»#FlLEi«*(N0) 

2& 

0#FiLEr 08SNEG0 

4»*BLUCK»P*$REG2 

P#8U? FfcRffMSTMPU 

«>i8BU*'FtR<'2,0»STMP2 

#2,UPJ 

PC 



IBR IF BLOCK NUMBER READ WRONG 
fMAKE SURE PROPER BLOCK WAS READ 

;br if at the wrong block 
jmake sure proper file 

IBR IF IN THE PROPER FILE 



ITAKE ERROR RETURN 
;RETURN 



ROUTINt TO CHECK THE READ DATA 



JSR PC,DATLMP 
NORMAL RETURN 
ERRQR1 RETURN 
ERR0R2 RETURN 



DATCMPi MOV 
BIC 
ASL 
MOV 
MOV 
MOV 
MOV 

1SJ DEC 
CMPB 
BNE 
DEC 
BNE 

2S« MOV 
MOV 

3SI DEC 
BLT 
CMPB 
BNE 
DEC 
BGT 
BR 

4§J CLR 
CLR 
MOVB 
MOV 
MOVB 
MOV 
NEG 
ADD 
MOV 
MOVB 
MOVB 
ADD 



0$BLUCK,KU 

R0 

BLKS2CW0) r«l 

#BUFhER,R2 

84, R3 

•FlLt,K4 

Ri 

IH2J*, IR4J* 

4S 

R3 

18 

#8 e ,H3 

PATSlRtij ,R« 

Ri 

5S 

IR2)*» IR«3* 

4$ 

R3 

3$ 

2$ 

P#SGUDAT 

f»#SBDDAT 

«CR4J , MSGDDAT 

R4,08SGDAOR 

«(R2J,9»#SBDDAT 

R2,S>»SBDA0R 

Ri 

BLKSZCK0J»R1 

Ri,8>#BYTNUM 

MFlLt»f>MKEG0 

$0BLUCK r $«3REG2 

#2, CaPJ 

6S 



TERROR FLAG«0 AND DATA IS GOOD 
fDATA IS BAD CERROR FLAGb?) 
IDATA IS GOOD BUT ERROR FLAGai 

|GET THE BLOCK NUMBER 

JKEEP MAX PATTERN 

1X2 

IPICKUP THE BLOCK SIZfc 

IFIRST ADDRESS OF DATA 

ISETUP TO CHECK FILE AND BLOCK 

ICOUNT THIS BYTE 

ICHECK IT 

;br IF BAD 

f AGAIN? 

IBR IF YES 

|GET NUMBER OF BYTES/PATTERN 

|GET FIRST ADDRESS OF PATTERN 

ILAST BYTE BEEN CHECKtD? 

IBR IF YES 

INO^-CHECK IT 

IBR IF BAD 

IEND OF PATTERN? 

IBR IF NO 

IYES 



ISAVE GOOD OATA 

ISAVE GOQU ADDRESS 

ISAVE BAD DATA 

ISAVE BAD ADDRESS 

ISAVE THE BYTE NUMBER 



ISETUP TO TAKE ERROR! EXIT 
ITAKE ERR0R1 EXIT 
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1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 



006534 105737 001612 



006540 
006542 
006546 



100002 

062716 000004 

000207 
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006550 
006554 
006560 
006562 
006570 
006576 
006602 
006604 



006606 
006612 
006620 
006622 
006624 



BPL 

ADD 

6SI RTS 



005237 001206 
005337 001224 
002011 

013737 001260 
163737 001260 
005337 001206 
005720 
000200 



005237 001210 
023737 001210 
002401 
005720 
000200 



£#PAKMBK 

6& 

•4, CSPJ 

PC 



IDATA IS GOOD BUT WHAT ABOUT 
ITHE ERROR FLAG 
IBR IF ERROR FLAG®0 
ISETUP TO TAKE ERR0R2 EXIT 

JRETURN 



If************************************®****************** 
,SBTTL COUNT SOFT DATA ERROR 



ICALL 

I 

I 

I 

I 

CNTSPTS 



01224 
01206 



JSR 

RETURN 
RETURN 

INC 
DEC 
BGE 
MOV 
SUB 
DEC 
TST 
RTS 



R0,«»SCNTSFT 
FOR aOf-T RETRY 
FOR HAND 

##SOKTNM 

##RDTRY5 

IS 

##MAXRUS»«>»RDTRYS 

8»#MAXHUS,«'»SUFTNM 

f»#SOfTNM 

CR0)* 

R0 



/COUNT THIS SOFT ERROR 
IREREAD THE RECORD? 
|BR IF YES 
IRESET REREAD COUNT 
IDON'T COUNT AS SOFT 

ISTEP OVER THE REREAD RETURN 
IRETURN 



} ;****£&$**»*«*««****«** 



rft****»»*ft**«i***Si*ft*****ft*«»************ 



.SBTTL 

ICAL 

I 

J 

I 

I 

CNTHRD! 



JSR 

RETURN 
RETURN 

INC 
CMP 
BLT 
TST 
RTS 



COUNT HARD ERROR 



R0,#8CNTMRD 

MORE ERRORS ALLOWED 

MAX„ ERRORS HAVE OCCURREO 



#»HAKDNM 

P£HAHDNM»«»#MAXERR 

1$ 

tR0J* 

R0 



ICOUNT THIS HARD ERROR 

|MAX 9 HARD ERRORS OCCURRED 

IBR IF NO 

ITAKE FATAL EXIT 

IRETURN 
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1772 








1773 








177a 








1775 








1776 








1777 








1778 








1779 








1780 








178J 








1782 








1763 








1784 








1785 








1786 








1787 








1788 








1789 








1790 








1791 


006626 






1792 


006626 


01004b 




1793 


006630 


010146 




179a 


006632 


010246 




1795 


006634 


01034b 




1796 


006636 


010446 




1797 


006640 


010546 




1798 


006642 


016646 


000022 


1799 


006646 


01664b 


zzm^d. 


1800 


006652 


016646 


000022 


1801 


006656 


016646 


MVdSi 


1802 


006662 


000002 




1803 








1804 








1805 








1806 








1807 


006664 






1608 


006664 


012666 


000022 


1809 


006670 


012666 


mvzzz 


1810 


00667a 


01266b 


000022 


1811 


006700 


012b66 


musaa 


1612 


006704 


012b05 




1813 


006706 


012604 




1814 


006710 


012603 




1815 


006712 


012602 




1816 


006714 


012601 




1817 


006716 


012600 




1818 


006720 


000002 




1819 








1820 









I J**ftft> 

*SBTTL 

f ?****« 
/*3AVfc 
JtCALLS 



;* 

;*updn 
/ft 

M70P- 
J* *2- 

/* *a«> 

/* *6» 

/* +8» 

I*+1B- 

»**12» 
|*+lfl- 



********** ******************ft*******ft**ft**ar********it(**ft*«** 
SAVE AND RESTORE K0»K5 ROUTINES 

R0-R5 

SAVREG 
RETURN FROM SSAVRfcG THE STACK WILL LOOK LIKE! 

•-C*lfe) 
-C + 183 
— R5 
-R4 
-R3 
-R2 
'-R1 
«-R0 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MQV 
MOV 
MOV 
MQV 
RTI 

JfcRESTORE R0«-R5 

l*CALL! 

/* RESREG 

SRfcSREG! 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MQV 

MOV 

RTI 



R0,-15H) 

Ri,-CSPJ 

R2,-13P) 

R3,»ISP) 

R4,»(SH) 

R5,«CSWJ 

22(SPj,«.(SP) 

22CSRJ ,-CSP) 

22C3H},»CSP) 

22(SPJ,«(SP) 



lSP3*,d2lSP) 

CSP)*,22(SP) 

CSP)*,22(3H) 

CSPJ*,d2C5K) 

tSP)+,K5 

CSPJ*,K4 

CSPJ+,R3 

ISPJ*,N2 

CSPi*,Ki 

CSPJ*,K0 



//PUSH R0 ON STACK 

//PUSH Rl ON STACK 

//PUSH R2 ON STACK 

//PUSH R3 ON STACK 

//PUSH R4 ON STACK 

//PUSH R5 ON STACK 

//SAVfc PS OF MAIN FLOW 

//SAVE PC OF MAIN FLOW 

//SAVE PS OF CALL 

//SAVE PC OF CALL 



//RESTURE PC OF CALL 
//RESTORE PS OF CALL 
//RESTORE PC OF MAIN FLOW 
//RESTORE PS OF MAIN FLOW 
//POP STACK INTO R5 
//POP STACK INTO K4 
//POP STACK INTO R3 
//POP STACK INTO R2 
//POP STACK INTO HI 
//POP STACK INTO R0 
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1821 








1822 








1823 








182a 








1825 








1826 








1827 








1828 








1829 








1830 








1831 








1832 








1833 








1834 


006722 


010746 




1835 


006724 


000415 




1836 


006726 


010746 




1837 


006730 


000413 




1838 


006732 


010746 




1839 


006734 


000411 




1840 


006736 


010746 




18«1 


006740 


000407 




1842 


006742 


01074b 




18«3 


006744 


000405 




1844 


006746 


010746 




1845 


006750 


000403 




1646 


006752 


010746 




18«7 


006754 


000401 




1848 


006756 


010746 




1849 


006760 


162716 


00b724 


1850 


006764 


006216 




1851 


006766 


032777 


000040 


1852 


00677a 


001774 




1853 


006776 


012667 


000166 


1854 


007002 


010146 




1855 


007004 


010046 




1856 


007006 


012701 


007162 


1857 


007012 


016011 


000002 


1858 


007016 


105031 




1859 


007020 


005200 




I860 


007022 


152067 


000143 


186| 


007026 


005720 




18b2 


007030 


01206S 


000002 


1863 


007034 


011021 




1864 


007036 


005721 




1865 


007040 


1527U 


000101 


1666 








1867 


007044 


011177 


172170 


1868 


007050 


012600 




1869 


007052 


012601 




1870 


007054 


00020? 





| i ********* fc*a*«&*&*»«i*#«(a*!8r*»i(ira«ftft&a**&a#ftn 
sSBTTL CASSETTE PRIMITIVES ROUTINE 

/CALLED VIA JSR PC, JUNCTION} 

/WITH R0 POINTING TO I 

f 



*****iii*3lE»«tai»*«(*«i***«r* 



9 8YTE 
S BYTE 

„WORD 
.WORD 
• WORD 



wfg; mov 
FUNTABi BR 
WRITE! MOV 
BR 
MOV 
BR 
MOV 
8R 
MQV 



READS 
BSFG! 
BSBG? 
SFPGS 
SFBGS 



BR 



REWIND! 
IOCOM! 



MOV 

BR 

MOV 

BR 

MOV 

SUB 

ASR 

CMKRDYI B.IT 
BEQ 
MQV 
MOV 
MOV 
MOV 
MOV 
CLRB 
INC 

CHANQK! BISB 
TST 
MOV 
MQV 
TST 
BISB 

DOf-UN! MOV 
MOV 
MOV 
NTS 



DRIVfc $ C08A,lsB) 

POINTER TU STATUS/ERROR BYTE 

BUFFER ADDRESS 

BYTE CUUNT 



PC,»ISPJ 

IOCOM 

PC,-ISP) 

IOCOM 

PC-ISHJ 

IOCOM 

PC-ISK) 

IOCOM 

PC-ISH) 

IOCOM 

PC, "ISP) 

IOCOM 

PC,»CSP3 

IOCOM 

PC-CSP3 

SFUNTAB, CSP) 

(SPJ 

#40,S»TACSL 

CMKRUY 

CSPJ*,hUNLUC 

K1,-13H) 

R0,«tSPJ 

&CASPAK,Ri 

2CR0;, IR1J 

R0 

CR0)*,f"UNLUC*l 

(R0J* 

CR0)*,2CR1J 

IR0J , CN1J* 

CRD* 

»101»IK1J 

(RiJ ,#TACSL 
ISP)*,K0 
ISP)*, Hi 
PC 



/ WRITE A FILE GAP 

/ WRITE A BLOCK OF DATA 

/ READ A BLOCK OF DATA 

/ BACK SPACE A FILE GAP 

f BACK SPACE A BLOCK GAP 

/ SPACE FORWARD A FILE GAP 

/ SPACE FORWARD A BLOCK GAP 

I REWIND TO BEGINNING OF TAPE 

/PC ON STACK IS USED TO DETERMINE 

/ FUNCTION 

/READY BIT UP? 

/WAIT ON IT 

/PUT FUNC, IN BITS 1-3 OF FUNLOC 



ZPT 9 TO INT, HANDLER PAHAM* BLK B 
/PTR e TO ST/ERR WD 9 INTO P 9 BLK 9 
/ZERO ST/ERR BYTE 

/COPY CMAN 9 NUM„ TO FUNC WORD 

/BUFF* ADR 8 
/BYTE COUNT 

/ADD INT 9 ENABLE AND GO BITS 
/TO THE FUNCTION 
/START THE FUNCTION 



007056 
007056 



007062 
007066 
007072 
00707a 
007076 
007100 
007102 
007106 
007110 
007112 
007114 
007116 

007120 
007122 
007124 
007130 
007132 
007136 
007140 
007140 
007146 

007150 
007150 
007154 
007156 
007160 



007162 
007164 
007166 
007170 



010146 
010246 
016702 
012701 
105712 
100411 
011204 
000304 
052704 
110451 
105012 
012602 
012601 



172152 
007164 
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1371 

1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
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005321 
100412 
032712 
001003 
113177 
000402 
117731 
005241 
000402 



052712 000020 



172076 



012602 
012601 



||4r**»*ftft*Aft*«a*ft**«t***ft******** 


f 

8 SBTTL 
J 




CASSfcTTE INTtRRU 


CASINT5 








MOV 


HI, -ISP) 




MOV 


R2,~15P) 




MUV 


TACSL|K2 




MOV 


*CBCNT,R1 




TSTB 


IR2J 




BMI 


TREQ 




MOV 


IR2J f R<* 




SWAB 


R« 




BIS 


*1, HH 




MOVB 


R4,#»IK1J 




CLRB 


CR2J 




MOV 


CSPJ+ r K2 




MOV 


tSPJ *,K1 




RTI 




1 

TRfcQi 


DEC 


IRD* 




BMI 


NWILBS 




BIT 


»4, IH2J 




BNE 


READR 




MOVB 


#(RlJ+»eBTAUBL 




BR 


RWDONE 


HfcADR! 


MOVB 


#T40bLi#CHl)+ 


rwdones 


INC 

BR BACK 


-(R1J 


nwilbs: 


BIS 


»20» IRe!) 


BACK! 








MOV 


ISPJ+,W2 




MOV 


ISP)*#K1 




RTI 




1 

J CASSETTE INTtR, HANDLER PARAM 


1 

CASPAR! 


.WORD 





CBCNTJ 


B WORD 







*WQRD 





FUNLOC! 


8 W0RD 






*ftft**ft*ft**ft***ftft*»************ 



HPUSM Rl ON STACK 
MPU5M H2 ON STACK 

/PARAM, BLOCK 
^TRANSFER REQUEST? 
JYE8 



|SET THE DONE BIT 
JtOAD ST/ERR BYTE 
JTURN OFF INTERS, 
IIPOP STACK INTO K2 
IIPOP STACK INTO Rl 



JWHEN COUNT NEG»i DONt 
JCHECK READ OR WRITE FUNC, 

IWR1TE BYTE 

[READ BYTt 
JBUMP ADDR„ 
JGET BACK 

UNIT, LAST BYTE 5EU» 

IIPOP STACK INTO «2 
IIPOP STACK INTO Rl 



JSTATUS/ERROR POINTER 
IWORKING BYTE COUNT 
IWORKING BUFFER ADDRE5S 
JFUNC* WORD BUILT HERfc 
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1917 








1918 








1919 








1920 








1921 








1922 








1923 








1924 








1925 








1926 








1927 








1928 








1929 








1930 








1931 


007172 


104412 




1932 


007174 


016602 


000002 


1933 


007200 


012700 


007352 


J934 


007204 


010066 


000002 


1935 


007210 


012201 




1936 


007212 


012202 




1937 


007214 


012767 


000012 


1938 


007222 


012704 


007302 


1939 


007226 


012705 


007304 


1940 


007232 


005003 




1941 


007234 


161401 




1942 


007236 


005602 




1943 


007240 


161502 




1944 


007242 


002402 




1945 


0072a4 


003203 




1946 


007246 


000772 




1947 


007250 


062401 




1948 


007252 


005502 




1949 


007254 


062402 




1950 


007256 


022525 




1951 


007260 


052703 


000060 


1952 


007264 


110320 




1953 


007266 


005327 




1954 


007270 


000000 




1955 


007272 


001357 




1956 


007274 


105020 




1957 


007276 


104413 




1958 


007300 


000207 




1959 


007302 


145000 




I960 


007304 


035632 




1961 


007306 


160400 




1962 


007310 


002765 




1963 


007312 


113200 




1964 


007314 


000230 




1965 


007316 


041100 




1966 


007320 


000017 




1967 


007322 


103240 




1968 


007324 


000001 




1969 


007326 


023420 




1970 


007330 


000000 




S97| 


007332 


001750 




1972 


007334 


000000 





||******ft**!!ift*****«*a*i*ft************ i *********** 1 ** !,r,!! *********** i *** 
e SBTTU DOUBLE LENGTH BINAKY TO DECIMAL ASCII CONVERT ROUTINE 

II******************®******************************************** 
IftTHIS ROUTINE WILL CONVERT A 32**BIT BINARY NUMBER TO AN UNSIGNED 
|*DECIMAL CASCIIJ NUMBER* THE SIGN OF THE BINARY NUMBER MUST BE 
»*P0SITIVE, 
»*CALL 

| S MOV »PNTK,»CSPJ UPOlNTfcR TO LOW WORD OF BINAKY NUMBER 
J* JSR PC,#i*$UB2D 

|* RETURN ||THE FIRST ADDRESS OP ASCIZ 

HIS ON THE STACK 



SDB2D1 SAVREG 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
SUB 
5BC 
SUB 
BLT 
INC 
BR 
ADD 
ADC 
ADD 
CMP 
BIS 
MOVB 
DEC 
9 WQRD 
BNE 
CLRB 
RESREG 
RTS 

STNPWRI 145000 
35632 
160400 
2765 
113200 
230 

041100 
17 

103240 
1 

23420 

1750 



IS! 
233 



iS 



ass 



2tSHJ,K2 

#$DECVL»R0 

H0 r ai5H) 

(R2)*,K1 

CR2)*,K2 

310o »4S 

#$TNPWH,R4 

»STNPWH*2»R5 

R3 

CR4J f Rl 

R2 

(R5J #R* 

33 

R3 

£$ 

IR4)+#KJ 

R2 

(Ra)*»K2 

CR5)*, iRSJ* 

ff'0,R3 

R3, CH0J* 

CPCJ* 



IS 

IR0J* 



IISAVE REGISTERS 

1,'PICKUP THE DATA POINTER 

IIGET ADDRESS OP "SDECVL" STRING 

||PUT ADDRESS OF ASCIZ STRING ON STACK 

IfPICKUP THE BINARY NUMBER 

II5ET UP TO DO 10 CONVERSIONS 
IfADDRESS OP TEN POWER 

IICLEAR PARTIAL 
IISUBTRACT TEN POWER 



||BR IF TEN POWER TO LARGE 

IJADO 1 TO PARTIAL 

IILOQP 

HRESTQRE SUBTRACTED VALUE 



IIMOVE TO NEXT TEN POWER 
IICHANGE PARTIAL TO ASCII 
IISAVE IT 
JJUONE? 

I I BR IF NO 

IITERMINATOR 

IIRESTORE REGISTERS 

IIRETURN 

Ml f 0E09 

?I1 S 0E08 

if 1.0E07 

ni 9 0E0b 
IIU0E05 

m,0t04 

II l.BfcBI 
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1973 
1974 
1975 
197b 
1977 
1978 
1979 
1980 
1961 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
19*6 
1997 
199S 
1999 
2000 
20(01 
ZM2 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 

2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 



007336 000144 

007340 000000 

007342 000012 
007344 



007350 000000 
007352 000014 



007366 
007374 
007400 
007404 
007410 
007414 
007416 



007422 
007424 
007430 
007432 
007434 
007440 
007442 
007444 
007450 
007452 
007454 
007456 
007460 



016667 000002 

012746 007416 

000737 007172 

062716 000005 

012666 000002 
000207 

000000 000000 



010046 

016600 000004 

105710 

001403 

122720 000060 

001773 

005300 

010067 000002 

104401 



012600 
012616 
)7 



144 



12 


1 



H1.0E02 

;n»0E0i 
ni*0E0B 



SDtCVL! .8LKB 12, HRESERVE STORAGE FOR ASCIZ STRING 

,SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 

;;*****«>*******«******************•********************•*•**•**** 

|*THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 

?*UNSIGNED DECIMAL ASCIZ NUMBER, 

JftCALL 

»* MOV NUMBtR,»(SP) ffPUT BINARY NUMBER ON THE STACK 

t* JSR PC,#MSB2D HCALL 

I* RETURN HADDRESS OF THE 1ST ASCIZ CHAR,IS ON THE STACK 



00022 SSB2D! 



MOV 


2(SPJ,1S 


MOV 


Kis,»capj 


JSR 


PC, P»$UB2U 


ADD 


#5, (SPJ 


MOV 


CSP)*,2(SP} 


RTS 


PC 



.WORD 



HSAVfc BINARY NUMBER 

HSET POINTER 

HCALL D0U8LE LENGTH CONVERT 

;;ONLY ALLOW FIVE CHARACTERS 

IIPXCKUP POINTER 

JJRETURN 



,SBTTL TYPE NUMtRlCAL ASCIZ STRING SUPPRESS LEADING ZEROS 

} t ************************************** t************************ 

MTHIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 

J*LEADING NUMBERS,, 

J*CALL 

** MOV SNUMADK,-ISPJ HFIRST ADDRESS Of ASCIZ STRING 

?* JSR PC,*i*SSUPK3 



MSAVE R0 

iipickup the pointer 

mterminateor? 

;;br if yes 

mis this an ascii "0" 1 

MBR IF YES 

mbackup BY "1" 
MSAVE FOR TYPING 
MGO TYPE 

HASCIZ POINTER GOES HERE 
HRESTORE R0 
HRESTURE THE STACK 
MKETUHN 
,SBTTL READ AN OCTAL NUMBER FROM THE TTY 

MTHIS ROUTINE WILL READ AN OCTAL CASCII3 NUMBER PROM THE TTY ANQ 
?*CHANGE IT TO BINARY,, 

;*call: 

i* rdoct mread an octal number 

i* return here mlow order bits are on top op the stack 



ssuprsi 


MOV 


R0,»lSPJ 




MOV 


«(SPJ ,R0 


iss 


TSTB 


CR0J 




BEQ 


2$ 




CMPS 


»*0i CR0J* 




BEQ 


IS 


2SS 


DEC 


K0 




MOV 


R0,3S 




TYPE 




5S! 


„W0RD 







MOV 


tSPJ*,R0 




MOV 


CSP)*, ISPJ 




RTS 


PC 
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2029 






2030 






2031 


007462 


011646 


20J2 


007464 


016666 000004 


2033 


007472 


010046 


2034 


007474 


010146 


2035 


007476 


010246 


2036 


007500 


104410 


2037 


007502 


012600 


2038 


007504 


005001 


2039 


007506 


005002 


2040 


007510 


112046 


2041 


007512 


001412 


20«2 


007514 


006301 


2043 


007516 


006102 


2044 


007520 


006301 


2045 


007522 


006102 


2046 


007524 


006301 


2047 


007526 


006102 


2048 


007530 


042716 177770 


2049 


007534 


062601 


2050 


007536 


000764 


2051 


007540 


005726 


2052 


007542 


010166 000012 


2053 


007546 


010267 000010 


2054 


007552 


012602 


2055 


007554 


012601 


2056 


007556 


012600 


2057 


007560 


000002 


2058 


007562 


000000 



SROOCTJ 


MOV 


CSPM-tSPJ 




MOV 


4(SPi,2CSPJ 




MOV 


R0,*15P) 




MOV 


R1,*ISP) 




MOV 


Hi, "ISP) 


us 


RDLIN 






MOV 


tSPJ*,R0 




CLR 


Ri 




CLR 


R2 


2SI 


MOVB 


IR0J*,«CSPJ 




BEQ 


3$ 




ASL 


Rl 




ROL 


R2 




ASL 


HI 




ROL 


R2 




ASL 


Rl 




ROL 


R2 




8IC 


»~C7, UP) 




ADD 


CSPJ*,*1 




BR 


2$ 


iSI 


TST 


ISPJ* 




MOV 


Kl f 1£(8P) 




MOV 


«2,$HIUCT 




MOV 


ISPJ*,K2 




MOV 


CSP)*,K1 




MOV 


C5P)*,K0 




RTI 




SHIOCTt 


e WORD 






|»HXGH ORDER BITS ARE IN SMIOCT 

HPROVIDE SPACE FOR THE 

MlNPUT NUMBER 

HPUSH R0 ON STACK 

HPUSH Rl ON STACK 

JIPUSM R2 ON STACK 

HREAD AN ASCIZ LINE 

HGET ADDRESS OF 1ST CHARACTER 

HCLEAR DATA WORD 

?;PICRUP THIS CHARACTER 
HIF ZERO GET OUT 
tl*i 



f?STRIP THE ASCII JUNK 

HADD IN THIS DIGIT 

HLQQP 

MCLEAN TERMINATOR FROM STACK 

HSAVE THE RESULT 

HPOP STACK INTO R2 

HPOP STACK INTO Ri 

1 1 POP STACK INTO R0 

K/RETURN 

IIHIGH ORDER BITS GO HERE 
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2059 








; ; ft*«**«t**<(***i 


»ft**ft**«****a*********** 


************************** 


2060 








e SBTTL 




WQUTlNt TO TYPt DRIVE 




2061 
















2062 








JCALL 








2063 








? 


JSR 


PC»*»THDHV 




2064 








1 








2065 
2066 
2067 
















007564 


104401 


013326 


TPURVS 


TYPE 


,MSG15 


J" DRIVE " 


2068 


007570 


113746 


001613 




MOVB 


»«PARMBK+l»-tSP) 


JPICKUP THE DRIVE NUMBER 


2069 


007574 


042716 


177776 




BIC 


#"C1» (3P3 


JSTRIP ANY JUNK 


2070 


007600 


062716 


000101 




ADD 


#'Ar ISKJ 


IMARE IT ASCIZ 


2071 


007604 


012667 


000006 




MOV 


ISP)*, IS 


fSAVE IT FOR TYPEOUT 


2072 


007610 


104401 






TYPE 




JTYPE IT 


2073 


007612 


007616 






IS 






2074 


007614 


000207 






RTS 


PC 




2075 


007616 


000000 




1SI 


a WORD 
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2076 








2077 








2078 








2079 








2080 








2081 








2082 








2083 








2084 


007620 


104401 


013336 


2065 


007624 


005067 


171422 


2086 


007630 


104410 




2087 


007632 


012600 




2088 


007634 


105710 




2089 


007636 


001425 




2090 


007640 


012701 


001252 


2091 


007644 


122710 


000101 


2092 


007650 


001002 




2093 


007652 


112021 




2094 


007654 


000411 




2095 


007656 


122710 


000102 


2096 


007662 


001002 




2097 


007664 


112021 




2098 


007666 


000404 




2099 


007670 


122710 


000054 


2100 


007674 


001006 




2101 


007676 


105720 




2102 


007700 


105710 




2103 


007702 


001406 




2104 


007704 


022701 


001254 


2105 


007710 


101355 




2106 


0B7712- 


104401 


001202 


2107 


007716 


000730 




2108 


007720 


005767 


l?132fe 


2109 


007724 


001772 




2110 


007726 


000207 




2111 









J 1 ***** 


*******«i 


**»**$*»***** 


9 SBTTL 




KQUUN& TU A. 


ICALL 






» 


JSR 


PC,#»ASKUHV 


i 


RETURN 




ASKDRVS 


TYPE 


,MSGURV 




CLR 


DRVKfcY 




RDLIN 






MOV 


ISP)*,H0 




TSTB 


#R0 




BEQ 


NOTLl»L 




MOV 


#DRVKEY,H1 


LQUPI 


CMPB 


»'A,9>RkJ 




BNE 


NOTA 




MOVB 


IR0J*, IHIJ* 




BR 


NEXT 


NQTAS 


CMPB 


»*B#»R0 




BNE 


NOTB 




MOVB 


tR0)*, IR1J* 




BR 


NEXT 


NQTBS 


CMPB 


»54# *»RW 




BNE 


NOTLUL 




TSTB 


IR0)* 


NESTS 


TSTB 


PR0 




BEQ 


EXIT 




CMP 


#DRVKET*2,K1 




BMI 


LOOP 


NOTLGL* 


TYPE 


,SQUtS 




BR 


ASKDKV 


EXIT! 


TST 


DRVKfcY 




BEQ 


NOTLGL 




RTS 


PC 



KQUUN& TU ASK THE OPERATOR WHAT DRIVEC5J TO TEST 



JNQTE5 RB AND Hi ARE DESTROYED 

J«CKLF»"DRIVECS)? " 

?G0 GET A DRIVE 

I5ETUP TO CHECK FOR VALID DRIVECS) 

JWAS A DRIVE SELECTED? 

JBR IF NO 

JWA8 DRIVE H A" 5ELECTtD7 

JBR IF NO 

ISET KEY PQR DRIVt "A" 

?WA5 DRIVt "B" SELECTED? 

JBR IF NO 

;SET KEY FOR DRIVE "B" 

JWAS A COMMA TYPED? 

JBR IF NO 

IOUMP THE COMMA 

ITEHMINATOR? 

JBR IF YES 

JTWO DRIVES SELECTED? 

IBR IF NO 

IILLEGAL INPUT DETECTED 

JGQ TRY AGAIN 

JANY DRIVt SELECTED? 

?BR IF NO 
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2112 








2113 








2114 








2115 








2116 








2117 


007730 


010046 




2118 


007732 


104401 


013352 


2119 


007736 


104411 




2120 


007740 


012600 




2121 


007742 


001411 




2122 


007744 


020027 


160000 


2123 


007750 


103770 




2124 


007752 


010037 


001240 


2125 


007756 


062700 


000002 


2126 


007762 


010037 


001242 


2127 


007766 


104401 


013361 


2128 


007772 


104411 




2129 


007774 


012600 




2130 


007776 


001411 




2131 


010000 


020027 


001000 


2132 


010004 


103370 




2133 


010006 


010037 


001244 


2134 


010012 


062700 


000002 


2135 


010016 


010037 


001246 


2136 


010022 


104401 


013372 


2137 


010026 


104411 




2138 


010030 


012600 




2139 


010032 


001413 




2140 


010034 


020027 


000007 


81«1 


010040 


101370 




2142 


010042 


000300 




2143 


010044 


006200 




2144 


010046 


006200 




2145 


010050 


006200 




2146 


010052 


042700 


177437 


2147 


010056 


010037 


001250 


2146 


010062 


104401 


013405 


2149 


010066 


016746 


171146 


2150 


010072 


104402 




2151 


010074 


104401 


013414 


2152 


010100 


016746 


171136 


2153 


010104 


104402 




2154 


010106 


100401 


013423 


2155 


010112 


016746 


17112b 


2156 


010116 


104402 




215? 


010120 


104401 


013435 


2158 


010124 


016746 


171120 


2159 


010130 


104402 




2160 


010132 


104401 


013451 


21*1 


010136 


104407 




2ie>2 


010140 


012600 




2103 


010142 


022700 


000015 


2164 


010146 


001406 




2165 


010150 


022700 


000131 


2166 


010154 


001403 




2167 


010156 


104401 


001202 



,SBTTL ROUTlNt TO INPUT C3R,DBR, AND VECTOR ADDRESS AND PRIORITY 

/CALL 

/JSR PC,##ASKADR 

/SAVE R0 

/"TACS? M 

/GET VALUfc 

/PICK UP THE OCTAL NUMBER 

/IF "0" USE OLD VALUES 

/MAKE SURE IT IS A BUS ADDRESS 

/SAVE THE TAGS 
/STEP TO TADB ADDRESS 
ZAND SAVE IT 
/"VECTOR?" 



/MAKE 5URE ADDRESS IS IN VECTOR AREA 
/SAVE AS VECTOR ADDRESS 

/ASK FOR PRIORITY 



IIF "0" USE OLD VALUE 
/MAKE SURE ITS VALID 

/PUT INTO HIGH BYTE 

/AND SHIFT 

/INTO PROPER 

/POSITION 

/SAVE ONLY PRIORITY BITS 

/STORE IT AWAY 

ZTACSs" 
J/SAVE TACSL FOR TYPEOUT 
//GO TYPE — OCTAL ASCIICALL DIGITS) 

/••TADBarn 
//SAVE TADBL FOR TYPEOUT 
//GO TYPE»«OCTAL ASCIICALL DIGITS) 

/"VECTOR®" 
//SAVE TAVEC FOR TYPEOUT 
//GO TYPE»»OCTAL ASCIICALL DIGITS) 

/"PRIQRITYa" 
//SAVE TAPRIO FOR TYPEOUT 
l/GO TYPE»*QCTAL ASCIICALL DIGITS) 

J "OK?" 

/GO READ ONE CHARACTER 

/GET IT 

/IS IT «CH«? 

/BRANCH IF YES 

/IS IT "Y"? 

JIT WAS 

/TYPE n ? H 



ASKADRl MOV 


R0,»tSH) 


IS* TYPE 


rMSGASK 


RDOCT 




MOV 


CSP)*,«0 


BEO 


35 


CMP 


RU, $160000 


BLO 


IS 


MOV 


R0,0#TACSL 


ADD 


#2,R0 


MOV 


R0 f #»TADBL 


3S5 TYPE 


»MSGVEL 


RDOCT 




MOV 


CSPJ*,R0 


BEQ 


5S 


CMP 


R0,#1000 


BHIS 


3S 


MOV 


R0,##TAVEC 


ADD 


*2,Rkj 


MOV 


R0,08TAVEC+2 


5S! TYPE 


iMSGPRI 


RDOCT 




MOV 


CSP)*,H0 


BEQ 


bS 


CMP 


R0,*M 


BMl 


5$ 


SWAB 


R0 


ASR 


R0 


ASR 


R0 


ASR 


R0 


BIC 


^"C«3408-,K0 


MOV 


R0, 0&TAPHIU 


6SS TYPE 


jMTAtS 


MOV 


TACSL, - CSPJ 


TYPOC 




TYPE 


,MTAUB 


MOV 


TADBL, «CSP; 


TYPQC 




TYPE 


,MTAVfcU 


MOV 


tavec, »csp; 


TYPQC 




TYPE 


,MTAPR1 


MOV 


TAPRIU|»CSPJ 


TYPOC 




TYPE 


,MSGUK 


RDCHR 




MOV 


CSPJ*,K0 


CMP 


*15#K0 


BEQ 


7S 


CMP 


#'Y,N0 


BEQ 


7$ 


TYPE 


,$QUfcS 
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2168 010162 000663 

2169 010164 104401 

2170 010170 012600 

2171 010J72 000207 



BR IS 

TYPE ,MYfca 

MOV CSP)+, 

RTS PC 



/AND LET HIM CORRECT THEM 
/TYPE OUT "YES" 
/RESTORE R0 

/AND RETURN 
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/ 

B 5BTTL ROUTiNfe TU EXAMINE DRIVECS) FOR AVAILABLITY 



2iT2 








2173 








2174 








2175 








2176 








217? 








217S 








2179 








2180 








2181 








2182 


010174 


013701 


001240 


2163 


010200 


005011 




21B4 


010202 


122710 


000101 


218S 


010206 


001402 




2186 


010210 


052711 


000000 


2187 


010214 


032711 


000040 


2188 


010220 


001775 




2189 


010222 


005711 




2190 


010224 


100024 




2191 


010226 


032711 


001000 


2192 


010232 


001017 




2193 


010234 


032711 


010000 


2194 


010240 


001411 




2195 


010242 


122777 


000201 


2196 


010250 


001412 




219? 


010252 


122777 


000203 


2198 


010260 


001406 




2199 


010262 


000403 




2200 


010264 


032711 


020000 


2201 


010270 


001002 




2202 


010272 


062716 


000002 


2203 


010276 


000207 





/CALLS 

/ 

I 

/ 

1 



170670 
170660 



MOV #DRVKEY,R0 
JSR PC,*»EXAM 
NORMAL RETURN 
ERROR RETURN 



EXAM! 


MOV 


P8TACSL,Ri 




CLR 


IRIJ 




CMPB 


n'k t IRW3 




BEQ 


IS 




BIS 


• UNIT, IRJJ 


US 


BIT 


»HEAUY, CR1J 




BEQ 


IS 




TST 


(R1J 




BPL 


4S 




BIT 


ffQFFUINE, CK I J 




BNE 


3$ 




BIT 


»WRTLOCK, IK1J 




BEQ 


25 




CMPB 


*BITW71BITW0,#SWR 




BEQ 


as 




CMPB 


•BlTB7jBIT0liBIT00|#SWK 




BEQ 


as 




BR 


35 


2§S 


BIT 


SLEAUEM, (HI) 




BNE 


as 


3S! 


ADD 


*2, CSPJ 


4S! 


RTS 


PC 



/Rl IS DESTROYED 



/PICKUP THE "CONTROL & STATUS" RE5„ ADR e 

JDRIVE»"A", FUNCTIONING" 

/EXAMINE DRIVE "A"? 

/BR IF YES 

/SELECT DRIVE "»" 

/WAIT ON READY 



OFF LINE"? 
WRITE LOCK"? 
SELECTED? IHDlPAS) 



/ANY ERROR? 

»BR IF NO 

/ERROR DUE TO 

/BR IF YES 

/ERROR DUE TO 

/BR IF NO 

/"READONLY 

/BR IF YES 

J (RD2PAS37 

/BR IF YES 

/TAKE TME ERROR EXIT 

/ERROR DUt TO "CLEAR LEADER"? 

/BR IF YES 

/TAKE ERROR RETURN 

/RETURN 
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2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
224? 
2248 
2249 
2250 
22S| 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 



010300 
010304 
010306 
010310 
010312 
010314 
010320 
010322 
010324 
010326 
010330 
010334 
010336 
010342 
010344 
010350 
010352 
010354 
010356 
010360 
010364 
010366 
010372 
010376 
010400 

010404 
010410 
010412 
010416 
010422 



105767 170653 
100002 



010046 
017600 
112046 
001005 
005726 
012600 
062716 
000002 
12271b 
001430 
122716 
001006 
005726 
104401 
001203 
105067 
000755 
004767 
126726 
001350 
016746 



170550 



105366 000001 
002770 
004767 000032 

105367 000072 
000770 



112716 
004767 
132767 
010442 001372 
010444 005726 



010424 
010430 
010434 



000040 
000014 

000007 



9 SBTTL TYPE ROUTINE 



*4»**»«l»*******l>**4*«»»«**44t**«*4444»*S44t444«4*|ll***4*»4**4«*4 

ROUTINE TO TYPE ASCIZ MtSSAGE B MESSAGE MUST TERMINATE WITH A BYTE, 
THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED S 
NOTE1! SNULL UONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER S 
N0TE2S SFILL5 CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED* 
NOTE3S SFILLC CONTAINS THE CHARACTER TO PILL AFTER* 



CALL! 

1) USING A TRAP INSTRUCTION 
TYPE ,MESADK 

TYPE 
MESADR 



60S; 
J5S 



TSTB 

BPL 

HALT 

BR 

MOV 

MOV 

MOVB 

BNE 

TST 

MOV 

ADD 

RTI 

CMPB 

BEQ 

CMPB 

BNE 

TST 

TYPE 

SCRLF 

CLR8 

BR 

JSR 

CMPB 

BNE 

MOV 

DECB 

BLT 

JSR 

DECB 

BR 



STPFLG 
1$ 

33 

R0,*iSP) 

?2CSPJ,R0 

CR0)*,"CSPJ 

4S 

CSP)* 

CSPJ*,«0 

#2, CSPJ 

•HTi CSP) 

8S 

#CRLP, 18P) 

5S 

tSPJ* 



SCHAHCNT 

2S 

PC,STYPEC 

SFIULC* CSPJ * 

25 

SNULL,"C8PJ 

1CSPJ 
bS 

PC,STYPEC 
SCHARCNT 

7$ 



/HORIZONTAL TAB PRQCtSaOR 



8$S 
9SI 



MOVB 

JSR 
BITB 
BNE 
TST 



8* , CSPJ 

PC,STYPEC 

#7, SCHARCNT 

9$ 

CSP)* 



//MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



//IS THERE A TERMINAL? 

//BR IF YES 

//MALT HERE IF NO TERMINAL 

//LEAVE 

//SAVE R0 

//GET ADDRESS OF ASCIZ STRING 

//PUSH CHARACTER TO BE TYPED ONTO STACK 

//BR IF IT ISN'T THE TERMINATOR 

//IF TERMINATOR POP IT OFF THE STACK 

//RESTORE R0 

//ADJUST RETURN PC 

//RETURN 

//BRANCH IF <«HTs> 

//BRANCH IF NOT «CRLF» 

//POP «CR»«LF* EQUIV 
//TYPE A CR AND LF 

//CLEAR CHARACTER COUNT 

//GET NEXT CHARACTER 

//GO TYPE THIS CHARACTER 

//IS JT TIME FOR FILLER CHARS,? 

//IF NO GO GET NEXT CHAR, 

//GET • OF FILLER CHARS 9 NEEDED 

//AND THE NULL CHAR, 

I/DOES A NULL NEED TO BE TYPED? 

f/BR IF NO»»GO POP THE NULL OFF OF STACK 

//GO TYPE A NULL 

//DO NOT COUNT AS A COUNT 

I /LOOP 



//REPLACE TAB WITH SPACE 
//TYPE A SPACE 

//BRANCH IF NOT AT 

//TAB STOP 

//POP SPACE OFF STACK 
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2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2283 
2281 
2282 
2283 
2264 
2285 
2266 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2298 
2297 
2298 
2299 
2302 
23»1 
2302 
2303 
2304 
2305 
230b 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 



010446 
010450 
010454 
010456 
010464 
010472 
010474 
010500 
010502 
010510 
010512 
010514 
010516 



010520 
010526 
010530 
010534 
010536 
010542 
010546 
010552 
010554 
010562 

010564 
010570 
01057a 
010600 
010602 
010606 
010610 
010612 
010616 

010620 
010624 



010630 
010634 
010636 
010642 
010646 



000724 
105777 
100375 
116677 
12276b 
001003 
105067 
000406 
122766 
001402 
105227 



000207 



022767 
001074 
105777 
100071 
117746 
042716 
022726 
001062 
126727 
001456 

104401 
104401 
016746 
104402 
104401 
005046 
005046 
105777 
100375 

117746 
042716 



021627 
001005 
104401 
062706 
000757 



000002 
000015 



000014 
000012 



000176 
170410 



170404 
177600 



011263 
170326 



170322 

177600 



000025 
011240 



170466 

000002 



000002 is: 



170354 000001 



0112*5 
011252 
167376 



BR 
STYPECS TSTB 
BPL 
MQVB 
CMPB 
BNE 
CLRB 
BR 

CMPB 

BfcQ 

INCB 

scmarcnt: .word 
5typexi rts 



2$ 

*8TPS 

STYPtC 

2CSPJ ,PSTPB 

»CR»«!(SPJ 

IS 

SCHAHCNT 

STYPtX 

*LF,2CJ>PJ 

STYPtX 

IPCJ* 



PC 



ffGET NEXT CHARACTER 

JIWAIT UNTIL PRINTER IS READY 

MLOAD CHAR TO BE TYPED INTO UATA REG 9 

HIS CHARACTER A CARRIAGE RETURN? 

IIBRANCH IF NO 

IJYE5 — CLEAR CHARACTER COUNT 

HEXIT 

MIS CHARACTER A LINE FEED? 

;;branch if yes 
mcount the character 
hcharacter count storage 



8 SBTTL TTY INPUT ROUTINE 

*ENABL LSB 

MSOFTWARE SWITCH REGISTER CHANGE ROUTINE 9 

ItHOUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

MSERVICE THE FE5T FUR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 

MWHEN OPERATING IN TTY FLAG MODE, 

;;IS THE SOFT-SWR SELECTED? 

IIBRANCH IF NO 

UCHAR THERE? 

MIF NO, DON'T WAIT AROUND 

HSAVE THE CHAR 

JI5TRIP»QFF THE ASCII 

MIS IT A CONTROL G? 

IINQ, RETURN TO USER 

MARE WE RUNNING IN AUTO«MODE? 

HBRANCH IF YES 

MECHU THE CONTROLS t"G) 

iitype current contents 

iisave swreg for typeout 

;;go type— octal asciicall digits) 

l/PROMPT FOR NEW SWR 
HCLEAR COUNTER 
flTHE NEW SWR 
JICHAR THERE? 
MIF NOT TRY AGAIN 

IIPICK UP CHAR 
IIMAKE IT 7»BIT ASCII 



MIS IT A CONTROL-U? 
flBRANCH IF NOT 
MYES, ECHO CONTROLS C""U) 
niGNORE PREVIOUS INPUT 
IILET'S TRY IT AGAIN 



SCKSWRS 


CMP 


»SWRtG,SWR 




BNE 


15S 




TSTB 


USTKS 




BPL 


15S 




MQVB 


PSTKB,»CSHJ 




BIC 


•"C177, CSPJ 




CMP 


»7, CSPJ* 




BNE 


15S 




CMPB 


SAUTUB,®! 




BEG 


153 




TYPE 


iSCNTLU 


SGTSWR! 


TYPE 


, SM5WH 




MOV 


SWRtG,»CSPJ 




TYPOC 






TYPE 


,3MNtW 


19S1 


CLR 


-CSPJ 




CLR 


-CSPJ 


7SJ 


TSTB 


PSTKS 




BPL 


7S 




MOVB 


PSTK»,°»CSPJ 




BIC 


»"Cl/7i CSPJ 


9$: 


CMP 


CSPJ ,#d5 




BNE 


10S 




TYPE 


»SCNTLU 


20S! 


ADD 


»6,SP 




BR 


19g 
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2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
23*2 
2343 
2344 
23«5 
2346 
2347 
2348 
2349 
2350 
235! 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 



010650 
010654 
010656 
010662 
010664 
010672 
010676 
010702 
010710 
910712 
010720 
310722 
010726 
010732 
010734 
010740 
010742 
010746 
010752 
010754 
010756 
010760 
010762 
010766 
010772 
010774 
011000 



011002 
011004 
011012 
011016 
011020 
011026 
011034 
011042 
011044 
011050 
011052 
011056 
011062 
011066 
011070 
011072 
011100 



021627 
001022 
005766 
001403 
016677 
062706 
104401 
126727 
001003 
012777 
000002 
004767 
021627 
002420 
021627 
003015 
042726 
005766 
001403 
006316 
006316 
006316 
005266 
056616 
000707 
104401 
000720 



011646 
016666 
105777 
100375 
J17766 
042766 
026627 
001013 
105777 
100375 
117746 
042716 
022627 
001366 
000750 
026627 
002407 



000002 
000006 
001203 
170227 



000060 
000002 



000002 

177776 



000004 
170126 



170122 
177600 



0100 170224 



1135 
14$: 



1533 
16SJ 



CMP ISP), 815 IIIS IT A «CR»? 

BNE 16S MBRANCH IF NO 

TST 4CSPJ l/YES, IS IT THE FIRST CHAR? 

BEQ IIS IIBRANCH IF YES 

MOV dCSPjjPSWR IJSAVt NEW SWR 

ADD *6,SP HCLEAK UP STACK 

TYPE ,$C«LF IfECHQ *CR» AND «LF» 

CMPB SINTAG,«S1 IIRE'ENABLE TTY KBD INTERRUPTS? 

BNE 15S flBRANCH IF NOT 

MOV *l0V f »»TK5 IIRE*ENA8L£ TTY KBD INTERRUPTS 

RTI IIRETURN 

JSR PC,*TYPEC IIECHO CHAR 

CMP £SPJ ,«S0 JICHAR < 0? 

BLT 18$ IIBRANCH IF YES 

CMP [SPJ ,867 JICHAR * 7? 

BGT 16S MURANCH IF YES 

BIC #60»CSPJ* MSTRIP-OFF ASCII 

TST 2(SPj HIS THIS THE FIR5T CHAR 

BEQ 17S IIBRANCH jp YES 

A5L CSPJ IJNO, SHIFT PRE5ENT 

ASL CSPJ |f CHAR OVER TO MAKE 

ASL 15PJ J I ROOM FOR NEW ONE, 

INC 2CSPJ JIKEEP COUNT OF CHAR 

BIS »2C5PJ,CSPJ H5ET IN NEW CHAR 

BR 7S JJGET THE NEXT ONE 

TYPE ,$QUtS JITYPE ?«CR»«LF» 

BR 20S STIMULATE CONTROLS 

LSB 



f*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

MCALLS 

1* RDCHR HINPUT A SINGLE CHARACTER FROM THE TTY 

J* RETURN HERE IJCHAHACTER IS ON THE STACK 

t* IIWXTH PARITY BIT STRIPPED OFF 

I 



SRDCHR5 



000004 000023 



17B070 
177600 

000021 



000004 000140 3$S 



MOV 

MOV 

TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

BR 

CMP 

BLT 



CSPJ, -CSPJ 

a(SPj,«JCSPJ 

PSTKS 

IS 

3>$TKB,4CSPJ 

4CSPJ,*23 
3$ 

S»8TKS 

23 

*»5TKB,»CSPJ 

#"CW7, CSPJ 

CSPJ*,*2l 

2$ 

IS 

4CSPJ ,8140 

4$ 



t JPUSH 

IISAVE 

* f WAIT 

IJA CM 

I fREAD 

JfGET 

MIS I 

IfBRAN 

MWAIT 

HLOOP 

MGET 

;;make 
his x 
niF ni 

IIYES, 

nis 1 

J t BRANI 



DOWN THE PC 

THE PS 

FOR 
ARACTER 

THE TTY 
RID OF JUNK IF ANY 
T A CONTROLS? 
CH IF NO 

FOR A CHARACTER 

UNTIL ITS THERE 
CHARACTER 

IT 7»BIT ASCII 
T A CONTROL»0? 
OT DISCARD IT 

RESUME 
T UPPER CASE? 
CM IF YES 
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2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
238J 
2382 
2383 
2384 
2365 
2386 
2387 
2388 
2389 
2390 
239i 
2392 
2393 
239fl 
2395 
2396 
2397 
2398 
2399 
2400 
24(9} 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
24il 
2412 



011102 


026627 


000004 


000175 




CMP 


4CSPJ,*175 


011110 


033003 








BGT 


as 


011112 


042766 


000040 


000004 




BIC 


*40,4C&P) 


011120 


000002 






ass 


RTI 





011122 
011124 
011130 
011134 
011136 
011140 
011142 
011146 
011150 
011154 
011156 
011162 
011166 
011172 
011174 
011200 
011204 
011206 
011210 
011216 
011224 
011226 
011227 
011230 
011240 
011245 
011252 
011260 
011263 
011270 



010346 
012703 
022703 
101405 
104407 
112613 
122713 
001003 
104401 
000763 
111367 
104401 
122723 
001356 
105063 
104401 
012603 
011646 
016666 
012766 



000010 
052536 

136 
005015 
020075 

040 
036440 



MIS IT A SPECIAL CHAR? 
MBRANCH IF YES 
MMAKE IT UPPEK CASE 

HGo back tu user 

J*THI5 ROUTINE WILL INPUT A STRING FROM THE TTY 

MCALLt 

I* RDLIN MINPUT A STRING PROM THE TTY 

I* RETURN MERE MADDRE55 OF FIRST CHARACTER WILL BE ON THE STACK 

/* MTERMINATQR WILL BE A bYTE OF ALL 0*5 



011250 
011200 



000177 

001202 

000044 
011226 
000015 

177777 

001204 



SRDLINS 

151 

291 



l0fl 

its: 

3S( 



011230 000004 



005015 
006507 
053523 
000 
047040 
000040 



000012 
020122 



9S5 

sttyin: 

SCNTLUI 
SCNTLGS 
SMSWRI 



MOV 

MOV 

CMP 

BLOS 

ROCHR 

MQVB 

CMPB 

BNE 

TYPE 

BR 

MOVB 

TYPE 

CMPB 

BNE 

CLRB 

TYPE 

MOV 

MOV 

MOV 

MOV 

RTI 

,BYTE 

S 8YTE 

9 BLKB 

.ASCI 7. 

,ASCIZ 

8 ASCIZ 



H3 f -15HJ 

#STTYIN,R3 

#STTYIN*S»,R3 

as 

ISPJ+, IR3) 

#177, CR3J 

5S 

i SQUtS 

IS 

C«3)f9S 

,9S 

»15» IR3J + 

2* 

»l(«i) 

#SLF 

CSPJ*,K3 

CSPJ,-lSPJ 

4CSPJ,*ISP) 

»$TTYIN, fllSPJ 



/"U/«15s-«12» 
/"•G/<15>Ki2> 
«15»«li»/SWR 



MSAVE R3 

MGET ADDRESS 

MBUFFER PULL? 

MBR IF YES 

MGQ READ ONE CHARACTER FROM THE TTY 

nSET CHARACTER 

HIS IT A RUBOUT 

MSKIP IF NOT 

HTYPE A •?» 

MCLEAH THE BUFFER AND LOOP 

MECHQ THE CHARACTER 

MCHECK FOR RETURN 

MLOQP IF NOT RETURN 

JICLEAK RETURN CTHE 15) 

I/TYPE A LINE FEED 

HRESTORE R3 

MADJU3T THE STACK AND PUT ADDRESS OF THE 

f? FIRST ASCII CHARACTER ON IT 

HRETURN 

MSTQRAGE FOR ASCII CHAR, TO TYPE 

HTERMINATOK 

PRESERVE 8 BYTES FOR TTY INPUT 

MCONTRQL M 0" 

HCONTROL "B" 



053505 SMNEWI „ASCIZ 
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2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2453 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 



011274 
011300 
011306 
011312 
011316 
011320 
011326 
011334 
011342 
011344 
011346 
011350 
011354 
011356 
011362 
011366 
011372 
011376 
011400 
011402 
011404 
011406 
011410 
011412 
011414 
011416 
011422 
011424 
011430 
011432 
011434 



017646 
116667 
112667 
062716 
000406 
112767 
112767 
112767 
010346 
010446 
010546 
116704 
005404 
062704 
110467 
116704 
016605 
005003 
006105 



006105 
006105 
006105 
010503 
006103 
105367 
100016 
042703 
001002 
005704 
001403 



000001 000211 

000207 

000002 

000001 000171 

000006 000165 

000005 00015a 



000145 

000006 
009132 
000125 
000012 



S SBTTL BINARY TO OCTAL IASCIIJ AND TYPE 

f*THIS ROUTINE IS UStU TO CHANGE A lb«»BIT BINARY NUMBER TO A b«DIGIT 

MOCTAL CASCIIJ NUMBER AND TYPE IT* 

r*STYPQS»«»»ENTER MERt TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

MCALL! 

I* MOV NUM,«ISP} MNUMBER TO BE TYPED 

f* TYPOS MCALL FOR TYPEOUT 

|* B BYTE N MN«1 TO 6 FOR NUMBER OP DIGITS TO TYPE 

I* 9 BYTE M HMal OR 

M M1*TYPE LEADING ZEROS 

r* ;;0*suppress leading zeros 

;* 

mstypon»««»enter here to type out with the same parameters as the last 

m5typqs or stypoc 

mcall: 

m mov num,<»(sp) mnumber to be typed 

Jft TYPON MCALL FOR TYPEOUT 

J* 

;*STYPOC-»»ENTtR HERE i-OR TYPEOUT OF A 16 BIT NUMBER 

MCALL! 

I* MOV NUM,»CSPJ MNUMBER TO BE TYPED 

in TYPQC MCALL FOR TYPEOUT 



STYPOSI MOV 
MOVB 
MOVB 
ADD 
BR 

STYPOCt MOVB 
MOVB 

stypon: MOVB 

MOV 

MOV 

MOV 

MOVB 

NEG 

AOD 

MOVB 

MOVB 

MOV 

CLR 

1SI ROL 
BR 

2S1 ROL 
ROL 
ROL 
MOV 

3SI ROL 
DECB 
BPL 
BIC 
BNE 
TST 
BEQ 



HSPJf-CSP) 

USPJ,S0FILL 

CSP)*,SOMQDEn 

m, isp) 

STyPUN 

»l,Sk)FlLL 

»&,SUMUDE+l 

*S,SOCNT 

R3,»15P3 

R4,»ISP) 

R5,-ISP) 

SOMOUE*l»Ra 

Rft 

#b,R« 

R4,SQMUDE 

S0FILL»R« 

12CSPJ,R5 

R3 

R5 

3S 

R5 

R5 

R5 

R5,«i 

R3 

SOMODE 

7$ 

$177770, RJ 

as 

R4 

5$ 



MPICKUP THE MODE 
MLOAD ZERO FILL SWITCH 
MNUMBER OF OIBITS TO TYPE 
MADJUST RETURN ADDRESS 

MSET THE ZERO FILL SWITCH 

MSET FOR SlX(b) DIGITS 

MSET THE ITERATION COUNT 

MSAVE R3 

MSAVE Ra 

MSAVE R5 

MGET THE NUMBER OF DIGITS TO TYPE 

MSUBTRACT IT FOR MAX 9 ALLOWED 
MSAVE IT FOR USE 
MGET THE ZERO FILL SWITCH 
MPICKUP THE INPUT NUMBER 
MCLEAR THE OUTPUT WORD 
MROTATE MSB INTO "C H 
MOO DO MSB 
MFORM THIS DIGIT 



MGET L5B OP THIS DIGIT 
MTYPE THIS DIGIT? 
MBR IF NO 
MGET RID OF JUNK 
MTE5T FOR 
MSUPPRESS THIS 07 
MBR IF YES 
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2469 


011436 


005204 




2470 


011440 


052703 


000060 


247j 


011444 


052703 


000040 


2472 


011450 


110367 


000040 


2473 


011454 


104401 


011514 


24*4 


011460 


105367 


000032 


2475 


011464 


003347 




2476 


011466 


002402 




2477 


011470 


005204 




2478 


011472 


000744 




2479 


011474 


012605 




2460 


011476 


012604 




248i 


011500 


012603 




2432 


011502 


016666 


000002 


2483 


011510 


012616 




2484 


011512 


000002 




2485 


011514 


000 




2486 


011515 


000 




2487 


011516 


000 




2480 


011517 


000 




2489 


011520 


000000 





433 


INC 


R4 




BIS 


*'0iK3 


5$: 


BIS 


** »K4 




MQV8 


R3,8S 




TYPE 


,8$ 


7$i 


DECB 


SOCNT 




BGT 


2$ 




BLT 


6$ 




INC 


R4 




BR 


23 


6St 


MOV 


CSP)+,K5 




MOV 


(SP)*,H4 




MOV 


CSP)*,K3 




MOV 


2(SPJ,<*(SP) 




MOV 


CSPJ*, CSPJ 




RTI 




ess 


.BYTE 







fl BYTE 





sqcnT: 


„BYTE 





30FILLS 


9 BYTE 


(3 


SOMQDE! 


.WORD 






//DON'T SUPPRE5S ANYMORE 0'5 

//MAKE THIS DIGIT ASCII 

//MAKE ASCII IF NUT ALREADY 

//SAVE FOR TYPING 

IIGO TYPE THIS DIGIT 

//COUNT BY I 

//BR IF MORE TO DO 

//BR IF DONE 

/UNSURE LA5T DIGIT ISN'T A BLANK 

//GO DO THE LAST DIGIT 

ZZRESTORE R5 

//RESTORE R4 

//RESTORE R3 

ZZSET THE STACK FOR RETURNING 

//RETURN 

//STORAGE FOR ASCII DIGIT 

//TERMINATOR FOR TYPE ROUTINE 

//OCTAL DIGIT COUNTER 

//ZERO FILL SWITCH 

//NUMBER OF DIGITS TO TYPE 
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2490 






249J 






2492 






2493 






2494 






2495 






2496 






2497 






2498 


011522 


010046 


2499 


011524 


016600 000002 


2500 


011530 


005740 


2501 


011532 


111000 


2502 


011534 


006300 


2503 


011536 


016000 011556 


2504 


011542 


000200 


2505 






2506 






2507 






2508 






2509 


011544 


011646 


2510 


011546 


016666 000004 


2511 


011554 


000002 


2512 






2513 






2514 






2515 






2516 






2517 






2518 






2519 






2520 


011556 


011544 


2521 


011560 


010300 


2522 


011562 


011320 


2523 


011564 


011274 


2524 


011566 


011334 


2525 






2526 


011570 


010570 


2527 






2528 


011572 


010523 


2529 


011574 


011002 


2530 


011576 


011122 


2531 


011600 


007462 


2532 


011602 


006626 


2533 


011604 


006664 



B SBTTL TRAP DtCQDER 

ZftTHlS ROUTINE WILL PICKUP THE LOWEH BYTE OF THE "TRAP" INSTRUCTION 

/ftAND USE IT TU INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADORESS 

Z*QF THE DESIRED ROUTINE, THEN USING THE ADDRESS OBTAINED IT WILL 
l*GO TU THAT ROUTINE* 

STKAPI 



MOV 


R0,»CSP) 


//SAVE R0 


MOV 


2(SPJ,H0 


//GET TRAP ADDRESS 


TST 


-CR0J 


//BACKUP BY 2 


MQVB 


CR0),RU 


//GET RIGHT BYTE OF TRAP 


ASL 


R0 


//POSITION FOR INDEXING 


MOV 


3TRPADCR0J »RK 


//INDEX TO TABLE 


RTS 


K0 


//GO TO ROUTINE 



//THIS IS USE TO HANDLE TMfe "GETPRI" MACRO 



STHAP25 


MOV 


(SPJ flSH) 


//MOVE THE PC DOWN 




MOV 


4(SP),rfCSP) 


//MOVE THE PSW DOWN 




RTI 




//RESTORE THE PSW 



8 SBTTL TRAP TABLE 

MTHIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
Z*BY THE "TRAP" INSTRUCTION,, 



/ ROUTINE 




j »«.„»»« 




STRPADS .WQRD 


STRAP2 


STYPE 


f ZCALL»TYPE 


STYPOC 


//CALL»TYPUC 


STYPOS 


J/CALL3TYPOS 


STYPON 


//CALL5TYPON 


SGTSWR 


J/CALL»GTSWR 


SCKSWR 


ZZCALLaCKSWR 


SRDCHR 


Z/CALLsRDCHR 


SRDLIN 


Z/CALL a ROLlN 


SRDOCT 


ZZCALLaRDOCT 



SSAVREG //CALL a SAVREG 
SRESREG Z/CALLSRESHEG 



TRAP-MC104401) TTY TYPEOUT ROUTINE 

THAP*2C104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

TRAP+3C104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 

TRAP+«C104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 

TRAP*S(104405) GET SOFT^SWR 5ETTING 

TRAP*6C104406) TEST FOR CHANGE IN SOFT»SWR 

TRAP*7(104407) TTY TYPEIN CHARACTER ROUTINE 

TRAP+10C104410) TTY TYPEIN STRING ROUTINE 

TRAP*ll(10441i) READ AN OCTAL NUMBER FROM TTY 

TRAPH2C104412) SAVE R0*R5 ROUTINE 

TRAP-U3C104413) RESTORE R0-R5 ROUTINE 
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2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
255t 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
256J 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
257i 
2572 
2573 
2574 
2575 
2576 
2577 
2578 



011606 
011614 
011622 
011624 
011626 
011630 
011632 
011634 
011636 
011642 
011646 
011654 
011656 



011660 
011666 
011672 
011676 
011702 
011704 
311710 
011712 
011714 
011716 
011720 
011722 
011724 
011732 
0H740 
011742 
011744 
011746 
011750 
011752 
011754 
01175b 
011760 
0U766 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
01054b 
017746 
010667 
012737 



011752 
000340 



167276 
000110 
011660 



000776 



012737 
016706 
005067 
005267 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104401 
011760 
012716 
004412 
000002 



000024 
000026 



»SILLUP,P»PW«VEC HSET fQR FAST UP 
#340,#*PWRVEO2 IfPRIQ! 



•C5P) 
R1,-15P) 
R2,-C5P) 
R3,-ISP) 
R4,-ISP) 
R5,-ISH) 

SP,SSAVRb 



#$PWNUP,"PWRVEC IISET UP VECTOR 
,»2 JJMANG UP 



011752 
000064 



000776 



005015 
000122 



000054 
167230 



011606 
000340 



047520 042527 



»SBTTL POWER DOWN AND UP ROUTINES 

JPQWER DOWN ROUTINE 
spwrdn: MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

HALT 

BR 

| j **** ********* 
IPUWER UP ROUT! 
SPWRUPI MOV 

MOV 

CLR 
1SI INC 

8NE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TYPE 
SPWRMGS 9 W0RD 

MOV 
SPWRAD! ,WQRO 

RTI 
S1LLUPJ HALT 

BR 
SSAVRb! 
SPUWERS «ASCIZ 

.EVEN 



IIPUSH R0 ON STACK 

IIPUSH Rl ON STACK 

; JPUSH R2 ON STACK 

MPUSM R3 ON STACK 

IIPUSM R4 ON STACK 

IIPUSH R5 ON STACK 

;;PUSM PSWR ON STACK 

IISAVE SP 



****St****ftft*#***************** 



NE 
»SILLUP,«*»PWHVEC IISET FOR PAST DOWN 
SSAVRb, SP 
SSAVKb 
SSAVRb 
IS 

(SP)*,*»SWK 
CSP)*,H5 
CSP)+,H4 
(SP)*,W3 
CSP)*,K2 
CSP)*,R1 
ISPJ 



IGET SP 

| I WAIT LOOP FOR THE TTY 

IIWAIT FOR THE INC 

||OF WORD 

IIPOP STACK INTO 8>SWR 

||POP STACK INTO R5 

IIPOP STACK INTO R4 

||POP STACK INTO R3 

1,'POP STACK INTO R2 

IIPOP STACK INTO Kl 

IIPOP STACK INTO R0 
*SPWKDN,«»#PWKVEC IISET UP THE POWfcR DOWN VECTOR 
#3a0,S>#PWKVEC*2 ||PRI0!7 

IHEPORT THE POWER FAILURE 
IPOWfcR MPOWER FAIL MESSAGE POINTER 

(PC)*,tSP} fIRESTART AT $EOP 
SEOP HRESTART ADDRESS 

||THE POWER UP SEQUENCE WAS STARTED 
e „g ;; BEFORE THE POWER DOWN WAS COMPLETE 

IJPUT THE SP HERE 
«15»«lds>"PUWER" 
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2579 

2580 
2581 
2582 

2583 011770 001116 001162 001166 

2584 011776 001230 001124 00112b 

2585 012004 001120 001122 000000 
2586 

2587 012012 001116 001162 001166 

2588 012020 001172 001176 000000 
2589 

2590 012026 001116 001162 001166 

2591 012034 001172 000000 



2592 
2593 

2594 
2595 
2596 
25*7 
2598 
2599 
2600 
2601 
2602 



JDATA POINTERS 



2603 012054 

2604 012055 

2605 012056 

2606 012057 

2607 012060 

2608 012061 
2609 

2610 012062 

2611 012083 

2612 012064 

2613 012065 

2614 012066 
2615 



001 
001 
001 
001 



*****ftA******«**»*«rA**»ft************ 



.WORD SERHPC,SSEG0,SREG2,BYTNUM,SGDDAT,S8DDAT,SGDADR,SBDADR,0 



8 WORD SERRPCiSREG0,SREG2#$TMP0,STMP2,0 



012040 001116 001240 000000 
012046 001116 000000 



012052 
012053 



DT101S 


8 W0RD 


SERRPC, 


5HEG0»SRE 


DT201! 


„WORD 


SERRPC. 


TACSLf 


DT202S 


B wORD 


SERRPC 





IDATA 


FORMATS 






ON»0 


IQCTAL 


NUMBER 




DN«1 


IDECIMAL NUMBER 


DF1I 


S BYTE 


ON 


ISERRPC 




B BYTE 


DN 


JSREG0 




S 8YTE 


DN 


ISREG2 




9 BYTE 


ON 


IBYTNUM 




9 BYTE 


ON 


ISGDDAT 




.BYTE 


ON 


ISBDDAT 




9 8YTE 


ON 


ISGDADR 




„BYTE 


ON 


ISHDADR 


DF2I 


8 BYTE 


ON 


ISERRPC 




9 BYTE 


DN 


ISKEG0 




9 BYTE 


DN 


ISREG2 




9 BYTE 


DN 


I5TMP0 




9 BYT£ 


DN 


ISTMPI 
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2&16 
2617 










; ; ***«# 


»«****** 


***»t**»*H*********4* 


2618 










^MESSAGES 




2619 
















262? 


012067 


127 


040522 


042524 


MXWFGS 


»ASCIZ 


/WR1TE-FILE-GAP/ 


2621 


012074 


003055 


006111 


026505 








2622 


012102 


000507 


000120 










2623 


012106 


051127 


052111 


000105 


MXWRIT! 


.ASCIZ 


/WRITE/ 


2624 


012114 


002522 


042101 


000 


mxread: 


*ASCIZ 


/READ/ 


2625 


012121 


102 


001501 


026513 


mxbsfg: 


.ASCIZ 


/8ACK-SPACE-PILE-GAP/ 


2626 


012126 


050123 


041501 


026505 








2627 


01213a 


000506 


042514 


0a3455 








2629 


012142 


050101 


000 










2629 


012145 


102 


041501 


026513 


MXBSBGS 


*ASCIZ 


/BACK-SPACE-BlK-'GAP/ 


2630 


012152 


050123 


041501 


026505 








2631 


012160 


046102 


026513 


040507 








2632 


012166 


000120 












2633 


012170 


050123 


041501 


026505 


MXSFFGJ 


.ASCIZ 


/5PACE*FWD»FILE»GAP/ 


263a 


012176 


053506 


02650a 


044506 








2635 


012204 


042514 


003055 


050101 








2636 


012212 


000 












2637 


012213 


123 


040520 


002503 


MXSFBGt 


.ASCIZ 


/SPACE«FWP"»BLK*GAP/ 


2638 


012220 


003055 


042127 


041055 








2639 


012226 


005514 


0a3455 


050101 








26«? 


012234 


000 












26«1 


012235 


122 


053505 


007111 


MXRWND5 


.ASCIZ 


/REWIND/ 


26«2 


012242 


000100 












26«3 


01224a 


0O050O 


040520 


042440 


EM1S 


.ASCIZ 


"DATA ERROR" 


2640 


012252 


051122 


051117 


000 








26«5 


012257 


123 


047131 


020103 


£M2i 


8 ASCIZ 


"SYNC tRRQR" 


2646 


012264 


051105 


047522 


000122 








2607 


012272 


051104 


053111 


020105 


EM101: 


.ASCIZ 


"DRIVE IS OFF-LINE" 


2648 


012300 


051511 


047040 


003106 








2649 


012306 


046055 


007111 


000105 








2650 


012314 


051104 


05illl 


020105 


EM102S 


a ASCIZ 


"DRIVE IS WRITER-LOCK" 


2651 


012322 


051511 


053400 


000522 








2652 


012330 


042524 


046055 


001517 








2653 


012336 


000113 












265a 


012340 


006103 


040505 


020122 


EM103: 


.ASCIZ 


"CLEAR LEADER ERROR" 


2655 


012346 


002514 


042101 


051105 








2656 


01235a 


002000 


051122 


051117 








2657 


012362 


000 












2658 


012363 


106 


046111 


020105 


EM10O! 


, ASCII 


"PILfc GAP ERROR" 


2659 


012370 


000507 


020120 


051105 








2660 


012376 


007522 


000122 










2661 


012002 


00052a 


044515 


003516 


EM105S 


. ASCIZ 


"TIMINU ERROR" 


26b2 


012ai0 


002000 


051122 


051117 








2663 


012416 


000 












2664 


012417 


102 


047514 


005503 


EM106J 


.ASCIZ 


"BLOCK CHECK ERROR" 


2665 


01242a 


0aua0 


002510 


005503 








2666 


012432 


002040 


051122 


051117 








2667 


012400 


000 












2668 


012041 


125 


005516 


007516 


EM107I 


8 ASCIZ 


"UNKNOWN INTERRUPT" 


2669 


012006 


007127 


044440 


052116 








2670 


01205a 


051105 


052522 


052120 








267i 


012062 


000 













ft*ft«ftft*ftft*ft&ftftft*ft«,ftftft««tftftftft 



TA11 DATA RELIABILITY MAINDEC-1 1«DZTAE««C 
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MACYli 27C1006J 
ASCII MESSAGES 



17«,MAR»77 I4I55 PAGE 62 



2672 


012063 


120 


030501 


020061 


2673 


012070 


040506 


046111 


042105 


267 a 


012076 


052000 


020117 


002522 


2675 


01250a 


050123 


047117 


00010a 


2676 


012512 


007516 


042040 


000522 


2677 


012520 


002526 


000400 


000526 


2678 


012526 


006111 


001101 


002514 


2679 


012530 


000 






2680 


012535 


120 


020103 


020000 


2681 


012502 


020040 


003040 


046111 


2682 


012550 


020105 


020040 


001040 


2683 


012556 


007510 


005503 


020040 


268a 


01256a 


001040 


052131 


020105 


2685 


012572 


020040 


003000 


002100 


2686 


012600 


052101 


020040 


041040 


2687 


012606 


042104 


052101 


020000 


2688 


012610 


043440 


040500 


051100 


2689 


012622 


020040 


041040 


000500 


2690 


012630 


051104 


000 




2691 


012633 


000 


020040 


020000 


2692 


012600 


020000 


042440 


050130 


2693 


012606 


023520 


020104 


002000 


269a 


012650 


050130 


023524 


020104 


2695 


012662 


051000 


053103 


042047 


2696 


012670 


020000 


051040 


053103 


2697 


012676 


002007 


005015 




2698 


012702 


041520 


020040 


020040 


2699 


012710 


020000 


004506 


042514 


2700 


012716 


020040 


020040 


046102 


2701 


012720 


001517 


020113 


020000 


2702 


012732 


000506 


042510 


020040 


2703 


012700 


020000 


006102 


041517 


2700 


012706 


000113 






2705 


012750 


001520 


020040 


020000 


2706 


012756 


020000 


040506 


042514 


2707 


012760 


020040 


020040 


006102 


2708 


012772 


041517 


020113 


020000 


2709 


013000 


052506 


041516 


004520 


2710 


013006 


0O7H7 


000 




2711 


013011 


120 


020103 


020000 


2712 


013016 


020000 


052000 


041501 


2713 


013024 


000123 






2714 


013026 


001520 


000 




2715 


013031 


200 


025052 


020052 


2716 


013036 


007105 


026500 


003117 


2717 


01300a 


052055 


051505 


020120 


271fl 


013052 


025052 


000052 




2719 


013056 


051600 


003117 


020124 


2720 


013064 


051105 


007522 


051522 


2721 


013072 


000075 






2722 


01307a 


004200 


051101 


020100 


2723 


013102 


051105 


007522 


051522 


272a 


013110 


000075 






2725 


013112 


041200 


052131 


051505 


2726 


013120 


051000 


000505 


036500 


2727 


013126 


000 







EM201I „ASCIZ HAll BAILED TO RESPOND" 



EM202! 9 ASCIZ "NO DRIVE AVAILABLE" 



»ASCIZ /PC FILE BLOCK BYTE GDDAT BDDAT GDADR BDADR/ 



DH2! .ASCII / 



«ASCIZ /PC 



DH101J e ASCIZ /PC 



DHe!0ii 9 ASCIZ /PC 



DH202I B ASCIZ /PC/ 

MSG1! 9 ASCIZ «CRLF* H *** END<»OF*TEST *«*« 



MSG2S «ASCIZ «CRLf"»"SOFT ERRORS®" 
MSG35 „ASCIZ *CRLF>"HARD ERRORS**" 
MSG4I e ASCIZ ^CRL^'BYTES READs" 



EXPT'D EXPT'D RCV'D RCV *D/*15s><eigs. 



FILE BLOCK FILE BLOCK/ 



FILE BLOCK FUNCTION/ 



TA 1 1 DATA RELIABILITY MAINDEO 
DZTAtC,Pil 17»MAR»77 14152 



3726 
2729 
2730 
273i 
2732 
2733 
273a 
2735 
2736 
2737 
273S 
2739 
2780 
27*U 
2742 
27«3 
2744 
2745 
27H 
2747 
2746 
2749 
2750 
275J 
2752 
2753 
275a 
2755 
2756 
2757 
2759 
2759 
2760 
27bl 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
277? 
2778 
2779 
27»0 
2781 
2782 



013127 
013134 
013142 
013147 
013154 
013162 
013165 
013172 
013200 
013202 
013210 
013216 
013220 
013225 
013232 
013240 
013246 
013254 
013262 
013265 
013272 
013300 
013304 
013312 
013320 
013323 
013326 
013334 
013336 

0i33aa 

013352 
013360 
013361 
013366 
013372 
013400 
013405 
013412 
013414 
013422 
013423 
013430 
013435 
013442 
013450 
013451 
013456 



200 
020123 
042524 

200 
050040 
036523 

200 
027523 
000075 
041200 
027523 
000075 
040440 

040 
041040 
052123 
025052 
046522 
025052 

052 
040505 
025052 
025052 
052111 
025052 

040 
042040 
000040 
042200 
051450 
052200 

000 

200 
051117 



054502 
051127 
036516 
040524 
051501 
000 
044506 
040520 

047514 
044506 

042116 
044527 
020105 
042105 
020052 
052101 
000 
025052 
020104 
000052 
020052 
020105 



052111 
200 

000075 

052000 
000 
040 

047524 
040 

051117 
000 
200 

042531 

013464 



042524 MSG5! 
052111 
000 
042520 MSG6! 
042523 

042514 MSG7S 
051523 

045503 MSG8S 
042514 

000 MSG9! 
006114 MSG10S 
042524 



013464 002004 
015470 



MACY11 27C10U6J 17-MAR-77 14S55 PAGE 63 
ASCII MESSAGES 

„ASCIZ «CRLh>"SYTES WRITTEN®" 

.ASCIZ «CRLP >"TAPt PASSES®" 

,ASCIZ «CRLf-> H FILtS/PASSa" 

.ASCIZ <CRLF>"BLQCKS/FILEa" 



.ASCIZ 
.ASCIZ 



047506 MSG11S 
025040 



051040 MSG12I 
020040 



ANU" 

WILL BE TESTED"««CRLFs- 



M *»* f-URMAT ***" 



„ASCIZ "*** KfcAU 



051127 M5G13I .ASCIZ "*** WMITfc 
025040 



MSG14: 
042526 MSG15I 



.ASCIZ 
.ASCIZ 



044522 
037451 
041501 

042526 
000077 
044522 
037531 
040524 

042101 

053040 
036522 
050040 
052111 

045517 
100123 



042526 MSGDRV! »ASCIZ «CRLf »"DRI VE CS3 ? " 

000040 

037523 MSGASKI .ASCIZ «CRLl- J>"TAC8?" 

052103 MSGVECJ »ASCIZ «CRL»- >" VECTOR?" 

051117 MSGPRIS .ASCIZ «CRL^ ^"PRIORITY?" 

000 

051503 MTACS! .ASCIZ «CRLF5>"TAC3s" 

036502 MTADB8 e ASCIZ / TAuys/ 

001505 MTAVEC! 9 ASC1Z " VtCTORa" 
000 

PKIURlTYs" 



044522 MTAPRI5 .ASCIZ 
036531 



MSGDKS 

HYESJ 

»EVEN 



E ASCIZ *CRLha."0K7»' 
9 ASCIZ • , YES"<LRLF> 



BUFFER! ,BLKB 
LASTADDRESSa 



HEAD AND WKITE BUFFER 
1028. 



TA11 DATA RELIABILITY MAINDEC«-li»DZTAE^C MACY11 27 (tKJWJfeJ 17-MAR-77 10555 PAGE 6b 
DZTAEC»P11 17»MAR»77 14S52 CROSS REFERENCfc TABLfc — USER SYMBOLS 



ASKADR 


007730 


618 


2117# 


















ASKDRV 


007620 


615 


2084# 


2107 
















SACK 


007154 


1900 


1903# 


















BADFUN 


005466 


144S 


I454ff 


















@C S ERR 


006050 


1517 


1559# 


















BEGINX 


002326 


612# 


648 


650 


711 


7ii 












BEGINJ 


001752 


226 


537# 


















BEGIN2 


002000 


227 


5oo# 


















BEGINS 


002012 


228 


543 


5468 
















BGNCMN 


002016 


540 


542 


545 


547$ 














BIT0 a 


000001 


170« 




















BIT00 a 


000001 


160# 


170 


213 


737 


77b 


2195 


2197 








BIT01 a 


000002 


159# 


169 


212 


775 


2197 












BIT02 » 


000004 


15B# 


166 


211 
















8IT03 • 


000010 


157* 


167 


210 
















BJT04 9 


000020 


1568 


166 


209 
















BIT05 s 


000040 


155# 


165 


208 
















BJT06 a 


000100 


154# 


164 


207 
















BIT07 a 


000200 


1538 


163 


206 


775 


2195 


2197 










BIT08 » 


000400 


152# 


162 


205 
















BIT09 a 


001000 


151 # 


161 


204 
















BITl > 


000002 


169*1 




















BIT10 88 


002000 


150# 


203 


1354 
















SITU a 


004000 


149*8 


202 


















BIT12 a 


010000 


148$ 


201 


















BIT13 a 


020000 


147# 


200 


1361 
















9IT14 « 


040000 


146# 


199 


1316 
















BIT15 a 


100000 


145# 


198 


















BIT2 « 


000004 


168# 




















8IT3 » 


000010 


167# 




















BIT4 a 


000020 


166$ 




















BIT5 a 


000040 


165# 




















BIT6 ■ 


000100 


164# 




















8IT7 » 


000200 


163# 




















SITS a 


000400 


1628 




















BIT9 ■ 


001000 


161* 




















BLKSZ 


001312 


322# 


1583 


1585 


1648 


165M 


W04 


1729 








BLOCK 


001306 


314* 


846 


945 


946 


95J 


996 


1062 1072 1073 1080 


1124 


1170 






1178 


1484 


1541 


1542 


1545* 


1580 


1619 1645 1681 1686 


1701 


1732 


BPTVEC® 


000014 


177# 




















BSBG 


006742 


890 


932 


1020 


1842* 














BSFG 


006736 


1840$ 




















BUFFER 


013464 


422 


1617 


1670 


1667 


1688 


1705 


g779# 








BYTNUM 


001230 


289# 


1730® 


2583 
















C • 


000016 


790# 


791 


1510* 
















CASINT 


007056 


652 


1876$ 


















CASPAR 


007162 


1856 


I9ii# 


















CBCNT 


007164 


1543 


1680 


1912* 
















CHANOK 


007022 


1860# 




















CHKADR 


002350 


614 


617 


636^ 
















CHKDRV 


002442 


677* 




















CHKRDY 


006766 


l«5l# 


1852 


















CKEOTS 


004364 


871 


88a 


1065 


1149 


1163 


12008 










CKSWR ■ 


104406 


1315 


1350 


1369 


252818 














CLEAR 


002764 


730 


733 


751* 


753 














CLaERR 


005712 


1514 


1526*8 
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CNTHKD 006606 

CNTSFT 006550 

CR a 00001 5 

CRCERRs P40000 

CRLF a 000300 

CSRERR 005536 



DATCMP 


006356 


DDISP ■ 


177570 


DFi 


012052 


DFg 


012062 


DHi 


012535 


DH10J 


01275? 


DH2 


012633 


OH20| 


013011 


DH202 


013026 


DISPLA 


001142 


DISPRE 


00017a 


DN s 


000001 


DOPUN 


00704a 


DRVKtY 


001252 


ORVPNT 


001256 


D8WR » 


177570 


DTI 


011770 


DT101 


012026 


DT2 


012012 


DT201 


0120^0 


DT202 


012046 


EMTVEC® 


000030 


EMI 


01224a 


EM101 


012272 


EM102 


012314 


EM103 


012340 


EM10G 


012363 


EM105 


012402 


EM1556 


012417 


EMJ07 


012441 


EM2 


012257 


EM201 


012463 


EM202 


012512 


EOTS 


001212 


EREXTi 


005526 


EREXT2 


005530 


ERROR a 


100000 


ERRQR0 


005320 


ERRORi 


005376 


ERRQR2 


005506 


ERRVECss 


00000a 


EXAM 


01017a 


EXIT 


007720 


FGAP a 


00a?00 


FG £RR 


006040 


FILE 


001304 



FILE5Z 



923 


1052 


Ubia 










921 


1050 


17508 










85# 


2264 


2274 










199* 


1501 












86# 


600 


2235 


2274 


2715 


2719 


2722 


2756 


2758 


2760 


2762 


276« 


2773 


2774 


856 


869 


862 


894 


905 


936 


1008 


1483* 














918 


1047 


i 701 # 










92* 


259 


571 










454 


26(910 












461 


2610# 












452 


2680* 












«70 


476 


"82 


468 


49« 


500 


506 


456 


2691# 












518 


271 1* 












523 


2714*6 












259# 


571* 


579* 


1333* 


1353* 






223# 


579 












25990 


2602 


2b03 


2604 


2611 


2612 


2613 


1867# 














5019 


302 


538* 


677 


690 


741 


2085 


302# 


691* 


734 


742* 








91* 


258 


570 










453 


2583# 












U71 


477 


483 


489 


495 


501 


507 


460 


2587# 












519 


2593* 












524 


2595« 












1808 


558* 


559* 










451 


2643* 












4fe9 


2647# 












475 


2650# 












481 


2654S 












487 


26588 












493 


2661# 












499 


26648 












505 


26683 












U57 


2645* 












517 


2672* 












522 


2676# 












264# 


1064* 


1201 


1261 


1548* 






1416 


1473# 












1451 


1466 


1474# 










198# 














1405 


1410^ 












1406 


14308 












1407 


1464*8 












173# 


568 


569s. 


580* 


63b* 


642* 


1321 


678 


682 


687 


2182* 








2103 


2108# 












ZV2U 


1497 












1515 


1553* 












312* 


819 


950 


999 


10b0 


1077 


1127 


1683 


1685 


1707 


1731 








316# 


946 


1073 


1171 


1273 


1533 





2734 
1136 



1618 



TAU DATA RELIABILITY MAJNDfcl>i l«DZTAfc«»C MACY11 27C1006J 
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W-MAIW7 14S55 
USER SYMBOLS 



FILL 


006136 


1587 


1611* 






FORMAT 


003132 


795 


840# 






FORPAS 


00127a 


307 


308# 


747 


784 


FUNCTI® 


000016 


214# 


1486 






FUNC0 a 


000002 


212# 


214 






FUNCi » 


000004 


211# 


214 






FUNC2 ® 


000010 


210# 


214 






FUNLOC 


007170 


1485 


1853* 


I860* 


19148 


FUNTAB 


006724 


1835# 


1849 






GNS a 


****** u 


2i£ 


599 


2521 


2522 252i 2524 


GO ■ 


000001 


213$ 








GTSWK ■ 


104405 


594 


1287 


2526» 




HARDNM 


001210 


283# 


1246 


1767* 


1768 


HT ■ 


000011 


83$ 


2233 


2274 




ILBS ■ 


000020 


209# 








INT.ENa 


000100 


207# 








IOCOM 


006760 


1835 


1837 


1839 


1841 164J 1645 


IOTVECa 


000020 


178# 


556* 


557* 




ITEM50 


001622 


445# 


1392 






ITEMSJ 


001642 


467# 


1393 






ITEM52 


001732 


515# 


139a 






LASTADs 


015470 


2780* 








LASTBK 


001234 


291$ 


744* 


1062 


1533* 1534* |542* 


LASTf-L 


001236 


293# 


732 


743* 


1060 126b 1532* 


LEADtRa 


020000 


2008 


1495 


2cJ00 




LF 8 


000012 


84* 


2268 


2274 




LOOP 


007644 


2091# 


2105 






LOOPER 


002774 


750 


774<SS 


1205 




MAXEOT 


001264 


305# 


1201 






MAXERR 


001262 


304S 


746 


939 


1768 


MAXRDS 


001260 


303# 


745 


938 


1059 175J 1754 


MSGA5K 


013352 


2118 


2758!* 






MSGQRV 


01333b 


2084 


2756# 






MSGOK 


P13451 


2160 


2773* 






MSGPRI 


013372 


2136 


27&2S 






MSGVtC 


013361 


2127 


?760# 






MSGi 


013031 


I23H 


2715* 






MSG10 


013225 


706 


2741* 






MSGll 


013246 


641 


27448 






MSG12 


013265 


991 


2747# 






MSG13 


013304 


1119 


2750# 






MSG14 


013323 


1414 


1436 


1469 


2753# 


M5G15 


013326 


2067 


27548 






MSG2 


013056 


1240 


2719P 






MSG3 


013074 


1245 


2722# 






MSG4 


013112 


1250 


2725«! 






MSG5 


013127 


1255 


2728# 






MSG6 


013147 


1260 


2731* 






MSG7 


013165 


1265 


27348 






MSG8 


013202 


1272 


2737# 






MSG9 


013220 


703 


2740# 






MTACS 


013405 


2148 


27648 






MTADB 


013414 


2151 


2766# 






MTAPRf 


013435 


2157 


27708 






MTAVEC 


013423 


2154 


27b&» 






MXBSBf, 


012145 


1458 


2629# 
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P4XB8FG 


012121 


MXREAD 


012114 


MXRWNO 


012235 


MXSFBG 


012213 


MXSFPG 


812170 


MXWFfi 


012067 


MXWRIT 


012106 


MYES 


013456 


NEXT 


007700 


NOTA 


007656 


NDTB 


007670 


NOTLGL 


007712 


OFFLIN* 


001000 


OL.ERR 


005702 


ON ■ 


000000 


PARMBK 


001612 


PASCN? 


001266 


PATS 


001352 


PAT0 


001412 


PAT1 


001422 


PAH0 


001532 


PATU 


001542 


PAT12 


001552 


PAT13 


001562 


PATlfl 


001572 


PATjS 


001602 


PAT2 


001432 


PATJ 


001442 


PATa 


001452 


PAT5 


001462 


PATfc 


001472 


PAT? 


001502 


PAT8 


001512 


PAT9 


001522 


PIRQ ■ 


177772 


PIRQVEs 


000240 


PR0 ■ 


000000 


PR1 « 


000040 


PR2 a 


000100 


PR3 a 


000140 


PRO ■ 


000200 


PR5 ■ 


000240 


PR6 a 


000300 


PR7 a 


000340 


PS « 


177776 


PSCNTk 


001270 


PSW ■ 


177776 


PWRVEC" 


000024 


RBYTTL 


001214 


RDCHR ■ 


104407 


ROLIN i 


104410 


RDOCT i 


» 104411 


RDTRYS 


001224 


ROiPAS 


001276 



1057 
1456 
1461 
1460 
1459 
1454 
1055 
216*9 
2094 
2092 
2096 
2069 

2048 
1512 
2598* 

0l9# 

689 
1066 

306$ 

343# 

343 

344 

353 

354 

355 

356 

357 

358 

345 

346 

347 

34B 

349 

350 

351 

352 
90# 

184# 

107# 

108* 
109# 
1 1B# 
111$ 
112# 
U3# 

na# 

67® 
307# 
88$ 
17*# 
285# 
2161 
2036 
2119 
287# 
3098 



2625# 
2b24# 
26418 
2637# 
2633# 
2620# 
2623* 
2770# 
2098 
2095# 
2099$ 
2100 
1491 
1520# 
2601 
421 
891 
1131 

709* 
1586 
365# 
368# 
395# 
398# 
401# 
004$ 
0078 
410# 
371* 
374sl 
377ff 
380# 
383* 
386« 
389# 
3928 



83 

707* 

562® 
1251 
2387 
2086 
2128 

745* 



2106# 
2191 

2b05 
b97» 
900 

1133 
777 

1714 



547* 
708® 

563* 
1648* 
g529# 
2530# 
2137 

938* 



2606 
699* 
902 

1102 
779* 



701* 
931 

78/* 



2606 
704* 
933 

1156 



2610 
738* 

1003 
1158 



853 

1005 
1236 



855 
1019 
1488 



864 
1021 
1585* 



866 877 
1030 1032 
1650* 1735 



879 
1080 
2068 



2538* 
1649* 



25318 

1059* 



2539* 2548* 



TA11 DATA RELIABILITY MAINDEC-1 1-DZTAE-C MACY11 27C10U6J 17-MAR-77 14:55 
OZTAtC.Pli 17-HAR-7F 14152 CROSS REFERENCE TABLt - USE* SYMBOLS 



RD2PAS 


001302 


Ml* 


782 








READ 


006732 


901 


1031 


1838# 






READON 


003562 


796 


798 


989# 


990 




READR 


007140 


1895 


1898# 








READY ■ 


000040 


208# 


2187 








RESREG® 


104413 


1957 


2533# 








RESVECs 


000010 


174# 










REWIND 


006756 


850 


1004 


1132 


1237 


18488 


RWDONE 


007144 


1897 


18998 








RWIL8S 


007150 


1893 


1902# 








SAVREG^ 


104412 


1931 


2532# 








SETUPR 


006220 


899 


1013 


16458 






SETUPW 


006072 


876 


1153 


1580# 






SFBG 


006752 


J806« 










SFFG 


006746 


1085 


18440 








SOFTNM 


001206 


262$ 


731 


732 


1201 


1750* 1754* 1755* 


STACK a 


001100 


78# 


554 








START 


002630 


707 


728S 


1299 






STKLMT* 


177774 


B9# 










SWR 


001140 


258# 


552 


570* 


572 


578* 592 774 






1366 


2195 


2197 


2280 


2321* 254b 2559* 


SWREG 


000176 


220# 


578 


592 


1285 


2280 2297 


3W0 - 


000001 


142# 










3W00 ■ 


000001 


132l* 


102 








SW01 a 


000002 


13l« 


141 








SW02 s 


000004 


130# 


140 








SW03 ■ 


000010 


129S8 


139 








SW04 » 


000020 


128# 


138 








SW05 s 


000040 


127# 


137 








SW06 ■ 


000100 


126* 


136 








SW07 ■ 


000200 


125# 


135 








SW08 ■ 


000400 


1208 


134 


1203 






SW09 s 


001000 


123# 


133 


1281 






8W1 a 


000002 


10l# 










SW10 ■ 


002000 


122# 


1336 








8W11 ■ 


004000 


181* 










SW12 ® 


010000 


1208 










SW13 8 


020000 


1193!* 










SW10 ** 


040000 


11BI 










SW15 ■ 


100003 


117* 










SW2 ■ 


000004 


140s* 










SW3 ■ 


000010 


139# 










SW4 a 


000020 


138# 










SW5 ■ 


000040 


137*5 










SW6 • 


000100 


13&# 










SW7 « 


000200 


135# 










5W8 s 


000400 


134# 










SW9 ® 


001000 


I 3319 










SYNCK 


006254 


911 


1040 


16708 






TACSL 


001240 


297# 


638 


1851 


1867* 


1879 2120* 2109 


TADBL 


001242 


29B# 


1896* 


1898 


2126* 


215* 


TAPRIO 


001250 


300# 


2147* 


2158 






TAVEC 


001244 


299# 


541 


652* 


653* 


2135* 2135* 2155 


TBITVEa 


000014 


175« 










TIMERRa 


002000 


203# 


1499 








TKVEC ■ 


000060 


ias# 











1203 
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TMPSWR 8 " 


160000 


1336$ 


1377 




















TM.ERR 


006044 


1516 


15560 




















rPDRV 


00756a 


700 


705 


&as 


992 


1120 


2067* 












TPVEC a 


00006a 


1838 






















TRAPVEa 


000034 


ifli* 


560ft 


bfel* 


















TREQ 


007120 


1662 


1892® 




















TRTVfcC" 


00001a 


176# 






















TR.RtQa 


000200 


2068 






















TYPE ' 


I0aa0i 


583 


698 


703 


706 


841 


843 


991 


993 


1119 


1121 


1228 






1240 


1245 


1250 


1255 


12010 


1265 


1272 


1277 


1356 


1364 


1379 






1«01 


1403 


1M4 


1426 


143b 


144a 


iaa9 


1469 


2016 


2067 


2072 






2116 


2127 


2136 


2148 


2151 


2154 


2157 


2160 


2167 


2169 


2238 


TYPERR 


005210 


2299 

1363 


2312 
1379s 


2323 


23a2 


2391 


2394 


2398 


2473 


2521$ 


2568 




TYPOC a 
TYPON a 


10aa02 

10440a 


1«20 
252a# 


1433 


lass 


2150 


215J 


2156 


2159 


2298 


2522# 






TYPOS * 


104403 


2523# 






















UNIT a 


000400 


205# 


2186 




















WBYTTL 


001220 


286$ 


1256 


15a3* 


15aa* 


1533* 


1584* 












WFG 


006722 


665 


1143 


1834* 


















WL.EKR 


005706 


1S13 


1523s 




















WRITE 


006726 


678 


1157 


1836» 


















WRITtO 


004136 


797 


1117» 


1118 


















WRTLQC 8 


010000 


201* 


1493 


2193 


















WRTPAS 


001300 


310# 






















WRTRYS 


001226 


288# 


746* 


929* 


939* 
















XBSBG s 


000010 


192# 






















XBSFG a 


000006 


191* 






















XREAD a 


000004 


190# 


1560 




















XRWND ■ 


000016 


195# 






















XSFBG a 


000014 


194# 






















XSFFG a 


000012 


193# 






















XWFG « 


000000 


1883 


1526 




















XWRITE« 


000002 


189# 


1536 




















X,ERK 


006066 


1518 


15658 




















3AUTUB 


001134 


255s8 


596* 


2292 


2ai3 
















SBDADR 


001122 


250SS 


1727* 


2583 


















SBDD4T 


001126 


252» 


729 


1723* 


1726* 


2583 














SBELL 


005204 


1356 


13763 




















SCMARC 


010514 


2240* 


2250* 


2257 


2266ft 


227l# 














SCKSWR 


010520 


22848 


2528 




















SCMTAG 


001100 


2388 


549 


550 


558 


504 


565 












SCMi s 


000004 


270» 


271* 


2720 


273# 


274$ 














SCM? a 


000010 


270& 


2718 


272# 


273# 


27a& 














SCM3 a 


000004 


268# 


270 




















SCM4 a 


000004 


27a* 


275# 


276# 


277# 


2/8# 














SCNTLG 


011245 


2295 


2408# 




















SCNTLU 


011240 


2312 


2407S 




















SCRL^ 


001203 


279# 
2407 


698 


843 


993 


U21 


136a 


1377 


1379 


1399 


1403 


2239 


SDB2D 


007172 


1252 


1257 


1«23 


1441 


1931# 


1993 












SDECVL 


007352 


1933 


1979*! 




















SODAGN 


004736 


122« 


1231 


1291 


12978 
















SENQAD 


004726 


586 


651 


Ma 


12938 


1371 














SENDCT 


004442 


564 


1226)$ 




















SENQMG 


004745 


1228 


1301# 





















1229 1238 

1397 1399 

2084 2106 

2295 2296 
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SENULL 


004742 


1229 


i300# 












SEOP 


004412 


859 


870 


683 


895 


90b 


914 


925 937 






1090 


1137 


1148 


1162 


1202 


1204 


1217$ 2571 


SEOPCT 


004434 


564* 


1223# 


1227 










SERFLR 


001103 


241# 


1308 


li32* 


1336 


1351* 


li76 




SERMAx 


001115 


247* 


1336 












SERROR 


005065! 


558 


1349* 












SERRPC 


001116 


248# 


1358* 


1359* 


1360 


1376 


2583 


2587 2590 


SERRTB 


001622 


439* 














SERTTL 


001112 


245# 


1357* 


1376 










SFILLC 


001156 


266S 


2243 


2274 










SFILLS 


001155 


265$ 


2274 












SGDAOR 


001120 


249# 


1725* 


2583 










SGDOAt 


001124 


251)8 


1722* 


1724* 


2583 








SGET42 


004456 


1230# 














SGTSWR 


010570 


2296$ 


2526 












SHO a 


000000 


12 














SHIOCT 


007562 


2053* 


20580 












SICNT 


001104 


2a2# 














SILLUP 


011752 


2538 


2554 


2573* 










SINTAG 


001135 


256* 


2324 


2413 










SITEMB 


001114 


246# 


728 


729 


1360» 


137/ 


1383 




SLF 


001204 


280# 


1277 


1377 


2274 


2398 


2407 




SLPAOR 


001106 


243$ 


565* 


840*. 


875* 


9906 


1018* 


1029* 1118s 


SLPERR 


001110 


244$ 














SMAIL a 


****** u 


582 


592 


1331 


1366 


2227 






SMNEW 


011263 


2299 


2411* 












SMSWK 


011252 


2296 


2409* 












SNULL 


001154 


264*5 


2245 


2274 










SOCNT 


011516 


2445* 


2474* 


2487# 










30M0UE 


011520 


2440ft 


2444* 


2449 


2452* 


2463A 


2489$ 




80VEH 


005044 


1317 


1328 


13338 










SPASS 


001100 


239# 


1220* 


1221* 


1300 








SPOWtR 


011760 


2569 


2576» 












SPWRAQ 


011746 


2571# 














SPWRDN 


011606 


562 


2538a* 


2566 










SPWRMG 


011742 


2569m 














SPWRUP 


011660 


2548 


2554# 












SQUES 


001202 


278# 


1377 


2106 


2167 


2274 


2342 


2391 2407 


SRDCHR 


011002 


2355# 


2529 












SRDDEC 8 


****** u 


2532 














SRDLIN 


011122 


2383$ 


2530 












SRDOCT 


007462 


2031# 


2531 












8RDSZ a 


000010 


2376# 














SREGAD 


001160 


268* 














SREG0 


001162 


270# 


1483* 


1685* 


1731* 


2583 


2587 


2590 


3REG1 


001164 


27U 














SREG2 


001166 


272# 


1484* 


1686* 


1732* 


2583 


2587 


2590 


SREG3 


001170 


2738 














SRESRE 


006664 


1807# 


2533 












SRTNAD 


004740 


1299# 














SR2A ■ 


****** u 


2534 














SSAVRE 


006626 


1791# 


2532 












SSAVN6 


011756 


2547* 


2555 


2556® 


2557* 


25753 






SSB2D 


007366 


1242 


1247 


1262 


1269 


1274 


1991# 




SSCOPE 


004760 


556 


1314* 













1331* 1334 
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SSETUPa 000137 



SSTUP a 


177777 


8SUPRS 


007422 


SSVLAD 


005030 


SSWR a 


160000 


SSWRMKa 


000000 


STKB 


001116 


STKS 


00H44 


STMP0 


001172 


STMP1 


001174 


STMP2 


001176 


STMP3 


001200 


STN ■ 


000001 


STNPWR 


007302 


STPB 


001152 


STPFLG 


001157 


STPS 


001150 


STRAP 


011522 


STRAP2 


011544 


STRP ■ 


000014 


STRPAD 


011556 


STSTNM 


001102 


STTYIN 


011230 


STYPBN^ 


44*444 U 


STYPDS* 


****** u 


STYPE 


010300 


STYPEC 


010450 


ITYPEX 


010516 


3TYPUC 


011320 


STYPON 


011334 


STYPOS 


011274 


SXTSTR 


004772 


S8GET4 3 


000001 


S0FILL 


011517 


S40CAT» 


****** u 


» a 


015470 



537# 
1369 

537# 
1243 
1325 

2# 
1232 
1344 
1311 
261* 
260# 
2748 
2758 
276# 
277* 
2# 
1938 
263* 
267# 
262* 
560 
2509# 
2513# 
25348 
2503 

240$ 
2384 
2525 
2525 
2221* 
2242 
2267 
2443# 
2442 
24383 
13198 
1232# 
2439* 
1316 

218* 
2274 



555 
1371 

1248 
1330SJ 

12 
1298 
1345 

2277 
2277 

774* 



12 
1939 

2263* 

2221 

2261 

2498# 

2520 

25220 

2520* 
1219* 
2385 



2513 

2249 

2269 

2522 

24458 

2523 

12904 
2443* 
1363 

222# 
2277 



556 
2279 



61 
1300 
1346 

2288 
228b 
775* 



1688* 2587 



558 
2413 



62 
1309 
1354 

2305 

2302 
788« 



131^ 

1361 

2359 

232b* 

790 



6a 

1311 
136b 

2365 

2357 

791 



65 
131b 

1370 



2363 

1487* 



66 
1328 
1376 



278 
1330 

1377# 



565 
1332 
2572 



1219 



5bb 
1336# 



1212 
13a2 



2587 



1220 
1343 



1959# 
227a 
227a 
2274 

2523# 2524# 2523* 252b 2527# 2528 2529# 2530» 253i# 2532» 25339 

1308 1330* 1333 1336 1353 1376 
2402 240b# 



2521 
2256 
2272(9 



237# 
2406« 



281 

2407 



55i 

2413 



565 
2550 



600# 
2574 



1300 
2775# 



1303 
2779# 



1336 

2780 



1979S 
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BGOTO 


216$ 


1509 




























CALL 


216# 


853 


863 


877 


«88 


900 


931 


1003 


1019 


1030 


1084 


1131 


1141 


1155 




COMMEN 


185# 






























DECBLK 


216# 


1539 




























DECF1L 


216# 


1528 




























ENDCOH 


I85# 






























EOPCOO 


216# 


1232 




























ERROR 


798 


645 


708 


913 


920 


1042 


1049 


1520 


1523 


1550 


1553 


1556 


1559 


1565 




ESCAPE 


185# 






























GETPRI 


185# 






























GETSWR 


185# 


589# 




























INCBLK 


216# 


943 


1069 


1168 
























INCFIL 


216# 


948 


1075 


1173 
























JGOTO 


216# 


789 




























moreta 


216# 


282 




























MULT 


185# 






























NEWTST 


185# 






























OUTDBL 


216# 


1251 


1256 


























OUTSGL 


216# 


1241 


1246 


1261 


1273 






















POP 


185# 


1628 


1812 


1888 


1903 


2054 


2559 


25b0 
















PUSH 


185# 


1611 


1792 


1876 


2033 


2540 


2546 


















REMARK 


216# 


850 


860 


872 


885 


896 


90H 


915 


926 


940 


1000 


1010 


1015 


1026 


1037 




1044 


1056 


1066 


1081 


1128 


1138 


1150 


1169 


1233 


1278 












REPORT 


185S! 






























SCOPE 


S0# 


907 


1055 


1160 


1200 


1218 


1232 


















SETBLK 


216# 


844 


951 


994 


1U78 


1122 


117b 


















SETFIL 


216# 


847 


997 


1125 
























SETPRI 


185# 






























SETTRA 


2513# 


2522 


2523 


2524 


2526 


2528 


252"* 


2530 


2531 


2532 


2533 










SETUP 


185S 


548 




























SKIP 


185# 






























SLASH 


185# 


318 


339 


361 


415 


527 


715 


799 


803 


850 


852 


860 


862 


872 


874 




885 


887 


896 


898 


908 


910 


915 


917 


92b 


928 


940 


942 


955 


1000 


1002 




1010 


1012 


1015 


1017 


1026 


1023 


1037 


1039 


1044 


1046 


1056 


1058 


1066 


1068 


1081 
1280 




1083 


1092 


1128 


1130 


1138 


1140 


1150 


1152 


1165 


1167 


1180 


1233 


1235 


1278 




1409 


1429 


1463 


1472 


1479 






















SPACE 


185# 






























STARS 


12 


185$ 


229 


233 


£81 


441 


463 


511 


529 


535 


602 


611 


619 


635 


654 




676 


717 


727 


755 


773 


801 


810 


838 


962 


988 


1099 


1115 


1183 


1199 


1209 




1305 


1338 


1377 


1567 


1590 


lb34 


1653 


1692 


1741 


1758 


1772 


1776 


1821 


1871 


1917 




1920 


1982 


2000 


2023 


2059 


207b 


2112 


217d 


2206 


2276 


2279 


2347 


2376 


£415 


2492 




2536 


2552 


2579 


2616 
























8WRSU 


185# 


566# 




























TRHTRP 


2513# 






























TYPBIN 


185# 






























TYPQEC 


185# 






























TYPNAM 


185# 


582 




























TYPNUM 


185# 






























TYPOCS 


185# 






























TYPOCT 


185# 


1419 


i«31 


1467 


2149 


2152 


2155 


2156 


2297 














TYPTXT 


185# 






























SSCMRE 


231# 


270 


271 


272 


273 






















SSCMTM 


231# 


274 


275 


27b 


277 






















SSESCA 


185* 






























3SNEWT 


185# 






























SSSET 


2513# 


2522 


2523 


2524 


2526 


2528 


2529 


2530 


2531 


2532 


2533 
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SSSKIP 


185S 




.EQUAT 


2* 


75 


»H£APE 


2# 




.SETUP 


2# 


537 


,SWRMI 


2# 


57 


,SWRLO 


67# 




„SCATC 


e># 


216 


.SCMTA 


2* 


231 


.SDB20 


2# 


1918 


,SEQP 


?» 


1207 


.$ER«0 


2# 


1336 


..SPowf 


2# 


253a 


9 SRQUC 


2# 


2021 


.SREAD 


2# 


2274 


.SSAVE 


2# 


1774 


,SSB3D 


2# 


I960 


,SSCUP 


2# 


1303 


„SSPAC 


2* 




9 $SUPR 


23 


1998 


s STRAp 


2# 


2490 


»$TYPE 


2* 


2204 


,$TYPO 


2# 


2ai3 



ABS 8 015470 



ERRORS DETECTED! 

DEFAULT GLQBALS GENERATED! 

DSKZjDZTAEC,BlN,0SK2:UZTAEC.LsT/CRF/SULa05KMjUZTAEC*Pn 
RUN-TIME: 15 8 „9 SECONDS 
RUN-TIME RATIO: 108/2*84,3 
CORE USED! 25K (50 PAGES) 



